/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_xemacs.idb / usr / freeware / lib / xemacs-20.4 / lisp / gnats / gnats-admin.elc.z / gnats-admin.elc

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 14 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 75 73 74 69 6e 62 |piled by| justinb|
|00000020| 40 65 62 6f 6e 79 2e 63 | 72 61 79 2e 63 6f 6d 20 |@ebony.c|ray.com |
|00000030| 6f 6e 20 4d 6f 6e 20 4d | 61 72 20 20 39 20 31 32 |on Mon M|ar  9 12|
|00000040| 3a 34 39 3a 33 38 20 31 | 39 39 38 0a 3b 3b 3b 20 |:49:38 1|998.;;; |
|00000050| 66 72 6f 6d 20 66 69 6c | 65 20 2f 68 6f 6d 65 2f |from fil|e /home/|
|00000060| 61 73 70 65 6e 30 37 2f | 6a 75 73 74 69 6e 62 2f |aspen07/|justinb/|
|00000070| 72 6f 6f 74 73 2f 66 72 | 65 65 77 61 72 65 2f 78 |roots/fr|eeware/x|
|00000080| 65 6d 61 63 73 2f 32 30 | 2e 33 2f 78 65 6d 61 63 |emacs/20|.3/xemac|
|00000090| 73 2d 32 30 2e 33 2f 6c | 69 73 70 2f 67 6e 61 74 |s-20.3/l|isp/gnat|
|000000a0| 73 2f 67 6e 61 74 73 2d | 61 64 6d 69 6e 2e 65 6c |s/gnats-|admin.el|
|000000b0| 0a 3b 3b 3b 20 65 6d 61 | 63 73 20 76 65 72 73 69 |.;;; ema|cs versi|
|000000c0| 6f 6e 20 32 30 2e 34 20 | 22 45 6d 65 72 61 6c 64 |on 20.4 |"Emerald|
|000000d0| 22 20 58 45 6d 61 63 73 | 20 20 4c 75 63 69 64 2e |" XEmacs|  Lucid.|
|000000e0| 0a 3b 3b 3b 20 62 79 74 | 65 63 6f 6d 70 20 76 65 |.;;; byt|ecomp ve|
|000000f0| 72 73 69 6f 6e 20 32 2e | 32 35 20 58 45 6d 61 63 |rsion 2.|25 XEmac|
|00000100| 73 3b 20 32 32 2d 4d 61 | 72 2d 39 36 2e 0a 3b 3b |s; 22-Ma|r-96..;;|
|00000110| 3b 20 6f 70 74 69 6d 69 | 7a 61 74 69 6f 6e 20 69 |; optimi|zation i|
|00000120| 73 20 6f 6e 2e 0a 3b 3b | 3b 20 74 68 69 73 20 66 |s on..;;|; this f|
|00000130| 69 6c 65 20 75 73 65 73 | 20 6f 70 63 6f 64 65 73 |ile uses| opcodes|
|00000140| 20 77 68 69 63 68 20 64 | 6f 20 6e 6f 74 20 65 78 | which d|o not ex|
|00000150| 69 73 74 20 69 6e 20 45 | 6d 61 63 73 20 31 39 2e |ist in E|macs 19.|
|00000160| 0a 0a 28 69 66 20 28 61 | 6e 64 20 28 62 6f 75 6e |..(if (a|nd (boun|
|00000170| 64 70 20 27 65 6d 61 63 | 73 2d 76 65 72 73 69 6f |dp 'emac|s-versio|
|00000180| 6e 29 0a 09 20 28 6f 72 | 20 28 61 6e 64 20 28 62 |n).. (or| (and (b|
|00000190| 6f 75 6e 64 70 20 27 65 | 70 6f 63 68 3a 3a 76 65 |oundp 'e|poch::ve|
|000001a0| 72 73 69 6f 6e 29 20 65 | 70 6f 63 68 3a 3a 76 65 |rsion) e|poch::ve|
|000001b0| 72 73 69 6f 6e 29 0a 09 | 20 20 20 20 20 28 73 74 |rsion)..|     (st|
|000001c0| 72 69 6e 67 2d 6c 65 73 | 73 70 20 65 6d 61 63 73 |ring-les|sp emacs|
|000001d0| 2d 76 65 72 73 69 6f 6e | 20 22 32 30 22 29 29 29 |-version| "20")))|
|000001e0| 0a 20 20 20 20 28 65 72 | 72 6f 72 20 22 60 67 6e |.    (er|ror "`gn|
|000001f0| 61 74 73 2d 61 64 6d 69 | 6e 2e 65 6c 27 20 77 61 |ats-admi|n.el' wa|
|00000200| 73 20 63 6f 6d 70 69 6c | 65 64 20 66 6f 72 20 45 |s compil|ed for E|
|00000210| 6d 61 63 73 20 32 30 22 | 29 29 0a 0a 28 6f 72 20 |macs 20"|))..(or |
|00000220| 28 62 6f 75 6e 64 70 20 | 27 63 75 72 72 65 6e 74 |(boundp |'current|
|00000230| 2d 6c 6f 61 64 2d 6c 69 | 73 74 29 20 28 73 65 74 |-load-li|st) (set|
|00000240| 71 20 63 75 72 72 65 6e | 74 2d 6c 6f 61 64 2d 6c |q curren|t-load-l|
|00000250| 69 73 74 20 6e 69 6c 29 | 29 0a 0a 0a 23 40 33 33 |ist nil)|)...#@33|
|00000260| 20 43 6f 70 79 72 69 67 | 68 74 20 61 6e 64 20 64 | Copyrig|ht and d|
|00000270| 69 73 63 6c 61 69 6d 65 | 72 20 6e 6f 74 69 63 65 |isclaime|r notice|
|00000280| 1f 0a 28 64 65 66 63 6f | 6e 73 74 20 67 6e 61 74 |..(defco|nst gnat|
|00000290| 73 2d 61 64 6d 69 6e 2d | 63 6f 70 79 72 69 67 68 |s-admin-|copyrigh|
|000002a0| 74 20 22 43 6f 70 79 72 | 69 67 68 74 20 28 63 29 |t "Copyr|ight (c)|
|000002b0| 20 31 39 39 36 20 52 6f | 67 65 72 20 48 61 79 65 | 1996 Ro|ger Haye|
|000002c0| 73 2e 5c 6e 5c 6e 50 65 | 72 6d 69 73 73 69 6f 6e |s.\n\nPe|rmission|
|000002d0| 20 74 6f 20 75 73 65 2c | 20 63 6f 70 79 2c 20 6d | to use,| copy, m|
|000002e0| 6f 64 69 66 79 20 61 6e | 64 20 64 69 73 74 72 69 |odify an|d distri|
|000002f0| 62 75 74 65 20 74 68 69 | 73 20 73 6f 66 74 77 61 |bute thi|s softwa|
|00000300| 72 65 20 61 6e 64 5c 6e | 64 6f 63 75 6d 65 6e 74 |re and\n|document|
|00000310| 61 74 69 6f 6e 20 66 6f | 72 20 61 6e 79 20 70 75 |ation fo|r any pu|
|00000320| 72 70 6f 73 65 20 61 6e | 64 20 77 69 74 68 6f 75 |rpose an|d withou|
|00000330| 74 20 66 65 65 20 69 73 | 20 68 65 72 65 62 79 20 |t fee is| hereby |
|00000340| 67 72 61 6e 74 65 64 20 | 69 6e 5c 6e 70 65 72 70 |granted |in\nperp|
|00000350| 65 74 75 69 74 79 2c 20 | 70 72 6f 76 69 64 65 64 |etuity, |provided|
|00000360| 20 74 68 61 74 20 74 68 | 69 73 20 43 4f 50 59 52 | that th|is COPYR|
|00000370| 49 47 48 54 20 41 4e 44 | 20 4c 49 43 45 4e 53 45 |IGHT AND| LICENSE|
|00000380| 20 4e 4f 54 49 43 45 20 | 61 70 70 65 61 72 73 20 | NOTICE |appears |
|00000390| 69 6e 5c 6e 69 74 73 20 | 65 6e 74 69 72 65 74 79 |in\nits |entirety|
|000003a0| 20 69 6e 20 61 6c 6c 20 | 63 6f 70 69 65 73 20 6f | in all |copies o|
|000003b0| 66 20 74 68 65 20 73 6f | 66 74 77 61 72 65 20 61 |f the so|ftware a|
|000003c0| 6e 64 20 73 75 70 70 6f | 72 74 69 6e 67 5c 6e 64 |nd suppo|rting\nd|
|000003d0| 6f 63 75 6d 65 6e 74 61 | 74 69 6f 6e 2e 5c 6e 5c |ocumenta|tion.\n\|
|000003e0| 6e 54 68 65 20 6e 61 6d | 65 73 20 6f 66 20 74 68 |nThe nam|es of th|
|000003f0| 65 20 61 75 74 68 6f 72 | 20 6f 72 20 53 75 6e 20 |e author| or Sun |
|00000400| 4d 69 63 72 6f 73 79 73 | 74 65 6d 73 2c 20 49 6e |Microsys|tems, In|
|00000410| 63 2e 20 73 68 61 6c 6c | 20 6e 6f 74 20 62 65 20 |c. shall| not be |
|00000420| 75 73 65 64 20 69 6e 5c | 6e 61 64 76 65 72 74 69 |used in\|nadverti|
|00000430| 73 69 6e 67 20 6f 72 20 | 70 75 62 6c 69 63 69 74 |sing or |publicit|
|00000440| 79 20 70 65 72 74 61 69 | 6e 69 6e 67 20 74 6f 20 |y pertai|ning to |
|00000450| 64 69 73 74 72 69 62 75 | 74 69 6f 6e 20 6f 66 20 |distribu|tion of |
|00000460| 74 68 65 20 73 6f 66 74 | 77 61 72 65 5c 6e 61 6e |the soft|ware\nan|
|00000470| 64 20 64 6f 63 75 6d 65 | 6e 74 61 74 69 6f 6e 20 |d docume|ntation |
|00000480| 77 69 74 68 6f 75 74 20 | 73 70 65 63 69 66 69 63 |without |specific|
|00000490| 2c 20 77 72 69 74 74 65 | 6e 20 70 72 69 6f 72 20 |, writte|n prior |
|000004a0| 70 65 72 6d 69 73 73 69 | 6f 6e 2e 5c 6e 5c 6e 41 |permissi|on.\n\nA|
|000004b0| 4e 59 20 55 53 45 20 4f | 46 20 54 48 45 20 53 4f |NY USE O|F THE SO|
|000004c0| 46 54 57 41 52 45 20 41 | 4e 44 20 44 4f 43 55 4d |FTWARE A|ND DOCUM|
|000004d0| 45 4e 54 41 54 49 4f 4e | 20 53 48 41 4c 4c 20 42 |ENTATION| SHALL B|
|000004e0| 45 20 47 4f 56 45 52 4e | 45 44 20 42 59 5c 6e 43 |E GOVERN|ED BY\nC|
|000004f0| 41 4c 49 46 4f 52 4e 49 | 41 20 4c 41 57 2e 20 20 |ALIFORNI|A LAW.  |
|00000500| 54 48 45 20 41 55 54 48 | 4f 52 20 41 4e 44 20 53 |THE AUTH|OR AND S|
|00000510| 55 4e 20 4d 49 43 52 4f | 53 59 53 54 45 4d 53 2c |UN MICRO|SYSTEMS,|
|00000520| 20 49 4e 43 2e 20 4d 41 | 4b 45 20 4e 4f 5c 6e 52 | INC. MA|KE NO\nR|
|00000530| 45 50 52 45 53 45 4e 54 | 41 54 49 4f 4e 53 20 4f |EPRESENT|ATIONS O|
|00000540| 52 20 57 41 52 52 41 4e | 54 49 45 53 20 41 42 4f |R WARRAN|TIES ABO|
|00000550| 55 54 20 54 48 45 20 53 | 55 49 54 41 42 49 4c 49 |UT THE S|UITABILI|
|00000560| 54 59 20 4f 46 20 54 48 | 45 20 53 4f 46 54 57 41 |TY OF TH|E SOFTWA|
|00000570| 52 45 20 4f 52 5c 6e 44 | 4f 43 55 4d 45 4e 54 41 |RE OR\nD|OCUMENTA|
|00000580| 54 49 4f 4e 20 46 4f 52 | 20 41 4e 59 20 50 55 52 |TION FOR| ANY PUR|
|00000590| 50 4f 53 45 2e 20 20 54 | 48 45 59 20 41 52 45 20 |POSE.  T|HEY ARE |
|000005a0| 50 52 4f 56 49 44 45 44 | 20 2a 41 53 20 49 53 2a |PROVIDED| *AS IS*|
|000005b0| 20 57 49 54 48 4f 55 54 | 5c 6e 45 58 50 52 45 53 | WITHOUT|\nEXPRES|
|000005c0| 53 20 4f 52 20 49 4d 50 | 4c 49 45 44 20 57 41 52 |S OR IMP|LIED WAR|
|000005d0| 52 41 4e 54 59 20 4f 46 | 20 41 4e 59 20 4b 49 4e |RANTY OF| ANY KIN|
|000005e0| 44 2e 20 20 54 48 45 20 | 41 55 54 48 4f 52 20 41 |D.  THE |AUTHOR A|
|000005f0| 4e 44 20 53 55 4e 5c 6e | 4d 49 43 52 4f 53 59 53 |ND SUN\n|MICROSYS|
|00000600| 54 45 4d 53 2c 20 49 4e | 43 2e 20 53 45 56 45 52 |TEMS, IN|C. SEVER|
|00000610| 41 4c 4c 59 20 41 4e 44 | 20 49 4e 44 49 56 49 44 |ALLY AND| INDIVID|
|00000620| 55 41 4c 4c 59 20 44 49 | 53 43 4c 41 49 4d 20 41 |UALLY DI|SCLAIM A|
|00000630| 4c 4c 20 57 41 52 52 41 | 4e 54 49 45 53 5c 6e 57 |LL WARRA|NTIES\nW|
|00000640| 49 54 48 20 52 45 47 41 | 52 44 20 54 4f 20 54 48 |ITH REGA|RD TO TH|
|00000650| 49 53 20 53 4f 46 54 57 | 41 52 45 20 41 4e 44 20 |IS SOFTW|ARE AND |
|00000660| 44 4f 43 55 4d 45 4e 54 | 41 54 49 4f 4e 2c 20 49 |DOCUMENT|ATION, I|
|00000670| 4e 43 4c 55 44 49 4e 47 | 20 54 48 45 5c 6e 57 41 |NCLUDING| THE\nWA|
|00000680| 52 52 41 4e 54 49 45 53 | 20 4f 46 20 4d 45 52 43 |RRANTIES| OF MERC|
|00000690| 48 41 4e 54 41 42 49 4c | 49 54 59 2c 20 44 45 53 |HANTABIL|ITY, DES|
|000006a0| 49 47 4e 2c 20 46 49 54 | 4e 45 53 53 20 46 4f 52 |IGN, FIT|NESS FOR|
|000006b0| 20 41 20 50 41 52 54 49 | 43 55 4c 41 52 5c 6e 50 | A PARTI|CULAR\nP|
|000006c0| 55 52 50 4f 53 45 20 41 | 4e 44 20 4e 4f 4e 2d 49 |URPOSE A|ND NON-I|
|000006d0| 4e 46 52 49 4e 47 45 4d | 45 4e 54 20 4f 46 20 54 |NFRINGEM|ENT OF T|
|000006e0| 48 49 52 44 20 50 41 52 | 54 59 20 52 49 47 48 54 |HIRD PAR|TY RIGHT|
|000006f0| 53 2e 20 49 4e 20 4e 4f | 20 45 56 45 4e 54 20 53 |S. IN NO| EVENT S|
|00000700| 48 41 4c 4c 5c 6e 54 48 | 45 20 41 55 54 48 4f 52 |HALL\nTH|E AUTHOR|
|00000710| 20 4f 52 20 53 55 4e 20 | 4d 49 43 52 4f 53 59 53 | OR SUN |MICROSYS|
|00000720| 54 45 4d 53 2c 20 49 4e | 43 2e 20 42 45 20 4c 49 |TEMS, IN|C. BE LI|
|00000730| 41 42 4c 45 20 46 4f 52 | 20 41 4e 59 20 53 50 45 |ABLE FOR| ANY SPE|
|00000740| 43 49 41 4c 2c 5c 6e 49 | 4e 44 49 52 45 43 54 2c |CIAL,\nI|NDIRECT,|
|00000750| 20 49 4e 43 49 44 45 4e | 54 41 4c 20 4f 52 20 43 | INCIDEN|TAL OR C|
|00000760| 4f 4e 53 45 51 55 45 4e | 54 49 41 4c 20 44 41 4d |ONSEQUEN|TIAL DAM|
|00000770| 41 47 45 53 2c 20 4f 52 | 20 41 4e 59 20 44 41 4d |AGES, OR| ANY DAM|
|00000780| 41 47 45 53 5c 6e 57 48 | 41 54 53 4f 45 56 45 52 |AGES\nWH|ATSOEVER|
|00000790| 20 52 45 53 55 4c 54 49 | 4e 47 20 46 52 4f 4d 20 | RESULTI|NG FROM |
|000007a0| 4c 4f 53 53 20 4f 46 20 | 55 53 45 2c 20 44 41 54 |LOSS OF |USE, DAT|
|000007b0| 41 2c 20 4f 52 20 50 52 | 4f 46 49 54 53 2c 20 57 |A, OR PR|OFITS, W|
|000007c0| 48 45 54 48 45 52 20 49 | 4e 5c 6e 41 43 54 49 4f |HETHER I|N\nACTIO|
|000007d0| 4e 20 41 52 49 53 49 4e | 47 20 4f 55 54 20 4f 46 |N ARISIN|G OUT OF|
|000007e0| 20 43 4f 4e 54 52 41 43 | 54 2c 20 4e 45 47 4c 49 | CONTRAC|T, NEGLI|
|000007f0| 47 45 4e 43 45 2c 20 50 | 52 4f 44 55 43 54 20 4c |GENCE, P|RODUCT L|
|00000800| 49 41 42 49 4c 49 54 59 | 2c 20 4f 52 5c 6e 4f 54 |IABILITY|, OR\nOT|
|00000810| 48 45 52 20 54 4f 52 54 | 49 4f 55 53 20 41 43 54 |HER TORT|IOUS ACT|
|00000820| 49 4f 4e 2c 20 41 52 49 | 53 49 4e 47 20 4f 55 54 |ION, ARI|SING OUT|
|00000830| 20 4f 46 20 4f 52 20 49 | 4e 20 43 4f 4e 4e 45 43 | OF OR I|N CONNEC|
|00000840| 54 49 4f 4e 20 57 49 54 | 48 20 54 48 45 20 55 53 |TION WIT|H THE US|
|00000850| 45 20 4f 52 5c 6e 50 45 | 52 46 4f 52 4d 41 4e 43 |E OR\nPE|RFORMANC|
|00000860| 45 20 4f 46 20 54 48 49 | 53 20 53 4f 46 54 57 41 |E OF THI|S SOFTWA|
|00000870| 52 45 20 4f 52 20 44 4f | 43 55 4d 45 4e 54 41 54 |RE OR DO|CUMENTAT|
|00000880| 49 4f 4e 2e 22 20 28 23 | 24 20 2e 20 36 30 39 29 |ION." (#|$ . 609)|
|00000890| 29 0a 23 40 33 35 20 56 | 65 63 74 6f 72 20 6f 66 |).#@35 V|ector of|
|000008a0| 20 70 61 72 73 65 64 20 | 70 72 6f 62 6c 65 6d 20 | parsed |problem |
|000008b0| 72 65 70 6f 72 74 73 2e | 1f 0a 28 64 65 66 76 61 |reports.|..(defva|
|000008c0| 72 20 70 72 2d 6c 69 73 | 74 20 6e 69 6c 20 28 23 |r pr-lis|t nil (#|
|000008d0| 24 20 2e 20 32 31 39 39 | 29 29 0a 28 62 79 74 65 |$ . 2199|)).(byte|
|000008e0| 2d 63 6f 64 65 20 22 c0 | c1 21 88 c2 c3 21 ac 84 |-code ".|.!...!..|
|000008f0| c3 c4 4d 88 c2 c5 21 ac | 84 c5 c6 4d 88 c7 c8 21 |..M...!.|...M...!|
|00000900| 88 c9 16 5c 6e ca 0e 0b | 42 16 0b c0 87 22 20 5b |...\n...|B...." [|
|00000910| 72 65 71 75 69 72 65 20 | 63 6c 20 66 62 6f 75 6e |require |cl fboun|
|00000920| 64 70 20 6d 61 74 63 68 | 2d 73 74 72 69 6e 67 20 |dp match|-string |
|00000930| 23 5b 28 6e 20 26 6f 70 | 74 69 6f 6e 61 6c 20 74 |#[(n &op|tional t|
|00000940| 61 72 67 65 74 29 20 22 | c0 20 19 5c 6e 89 5c 5c |arget) "|. .\n.\\|
|00000950| 1b 09 0b 9c 1c 09 0b 54 | 9c 1d c6 0c 21 ab 85 0c |.......T|....!...|
|00000960| 0d 7b aa 8e 0c a8 ab 87 | 0e 07 0c 0d 4f aa 83 c8 |.{......|....O...|
|00000970| c9 21 2c 87 22 20 5b 6d | 61 74 63 68 2d 64 61 74 |.!,." [m|atch-dat|
|00000980| 61 20 6d 2d 64 61 74 61 | 20 6e 20 69 64 78 20 6d |a m-data| n idx m|
|00000990| 2d 62 65 67 20 6d 2d 65 | 6e 64 20 6d 61 72 6b 65 |-beg m-e|nd marke|
|000009a0| 72 70 20 74 61 72 67 65 | 74 20 65 72 72 6f 72 20 |rp targe|t error |
|000009b0| 22 42 61 64 20 61 72 67 | 75 6d 65 6e 74 20 4e 20 |"Bad arg|ument N |
|000009c0| 74 6f 20 6d 61 74 63 68 | 2d 73 74 72 69 6e 67 22 |to match|-string"|
|000009d0| 5d 20 33 20 22 52 65 74 | 75 72 6e 20 74 68 65 20 |] 3 "Ret|urn the |
|000009e0| 74 65 78 74 20 6f 66 20 | 74 68 65 20 4e 54 48 20 |text of |the NTH |
|000009f0| 6d 61 74 63 68 20 69 6e | 20 6f 70 74 69 6f 6e 61 |match in| optiona|
|00000a00| 6c 20 54 41 52 47 45 54 | 2e 22 5d 20 65 64 69 74 |l TARGET|."] edit|
|00000a10| 2d 65 78 70 72 20 23 5b | 28 65 20 26 6f 70 74 69 |-expr #[|(e &opti|
|00000a20| 6f 6e 61 6c 20 65 78 70 | 6c 61 69 6e 29 20 22 c0 |onal exp|lain) ".|
|00000a30| 90 09 c2 89 1b 1c 1d 8a | c6 c7 0d 21 21 88 c8 20 |........|...!!.. |
|00000a40| 88 65 64 7c 88 0e 09 ae | 81 ca 63 88 cb 63 88 cc |.ed|....|..c..c..|
|00000a50| 20 13 cd 0e 0e 21 88 0b | 62 88 cf d0 21 88 d1 20 | ....!..|b...!.. |
|00000a60| 88 0b 62 88 d2 0d 21 14 | 29 0c 2b 91 87 22 20 5b |..b...!.|).+.." [|
|00000a70| 22 2a 65 78 70 72 2d 62 | 75 66 66 65 72 2a 22 20 |"*expr-b|uffer*" |
|00000a80| 73 74 61 6e 64 61 72 64 | 2d 6f 75 74 70 75 74 20 |standard|-output |
|00000a90| 6e 69 6c 20 65 6d 61 72 | 6b 20 76 61 6c 20 62 75 |nil emar|k val bu|
|00000aa0| 66 66 65 72 20 70 6f 70 | 2d 74 6f 2d 62 75 66 66 |ffer pop|-to-buff|
|00000ab0| 65 72 20 62 75 66 66 65 | 72 2d 6e 61 6d 65 20 65 |er buffe|r-name e|
|00000ac0| 6d 61 63 73 2d 6c 69 73 | 70 2d 6d 6f 64 65 20 65 |macs-lis|p-mode e|
|00000ad0| 78 70 6c 61 69 6e 20 22 | 3b 3b 20 45 64 69 74 20 |xplain "|;; Edit |
|00000ae0| 74 68 69 73 20 76 61 6c | 75 65 22 20 22 5c 6e 22 |this val|ue" "\n"|
|00000af0| 20 70 6f 69 6e 74 2d 6d | 61 72 6b 65 72 20 70 72 | point-m|arker pr|
|00000b00| 69 6e 31 20 65 20 6d 65 | 73 73 61 67 65 20 22 72 |in1 e me|ssage "r|
|00000b10| 65 63 75 72 73 69 76 65 | 20 65 64 69 74 20 2d 2d |ecursive| edit --|
|00000b20| 20 4d 2d 43 2d 63 20 77 | 68 65 6e 20 64 6f 6e 65 | M-C-c w|hen done|
|00000b30| 22 20 72 65 63 75 72 73 | 69 76 65 2d 65 64 69 74 |" recurs|ive-edit|
|00000b40| 20 72 65 61 64 5d 20 34 | 20 22 50 6f 70 20 75 70 | read] 4| "Pop up|
|00000b50| 20 61 20 62 75 66 66 65 | 72 20 74 6f 20 65 64 69 | a buffe|r to edi|
|00000b60| 74 20 74 68 65 20 45 58 | 50 52 45 53 53 49 4f 4e |t the EX|PRESSION|
|00000b70| 3b 20 72 65 74 75 72 6e | 20 74 68 65 20 65 64 69 |; return| the edi|
|00000b80| 74 65 64 20 76 61 6c 75 | 65 2e 5c 6e 42 75 66 66 |ted valu|e.\nBuff|
|00000b90| 65 72 20 67 65 74 73 20 | 6f 70 74 69 6f 6e 61 6c |er gets |optional|
|00000ba0| 20 45 58 50 4c 41 4e 41 | 54 49 4f 4e 2e 22 5d 20 | EXPLANA|TION."] |
|00000bb0| 70 72 6f 76 69 64 65 20 | 67 6e 61 74 73 2d 61 64 |provide |gnats-ad|
|00000bc0| 6d 69 6e 20 28 28 22 6e | 6f 6e 2d 63 72 69 74 69 |min (("n|on-criti|
|00000bd0| 63 61 6c 22 20 2e 20 6e | 6f 6e 2d 63 72 69 74 69 |cal" . n|on-criti|
|00000be0| 63 61 6c 29 20 28 22 63 | 72 69 74 69 63 61 6c 22 |cal) ("c|ritical"|
|00000bf0| 20 2e 20 63 72 69 74 69 | 63 61 6c 29 20 28 22 73 | . criti|cal) ("s|
|00000c00| 65 72 69 6f 75 73 22 20 | 2e 20 73 65 72 69 6f 75 |erious" |. seriou|
|00000c10| 73 29 20 28 22 68 69 67 | 68 22 20 2e 20 68 69 67 |s) ("hig|h" . hig|
|00000c20| 68 29 20 28 22 6d 65 64 | 69 75 6d 22 20 2e 20 6d |h) ("med|ium" . m|
|00000c30| 65 64 69 75 6d 29 20 28 | 22 6c 6f 77 22 20 2e 20 |edium) (|"low" . |
|00000c40| 6c 6f 77 29 20 28 22 6f | 70 65 6e 22 20 2e 20 6f |low) ("o|pen" . o|
|00000c50| 70 65 6e 29 20 28 22 61 | 6e 61 6c 79 7a 65 64 22 |pen) ("a|nalyzed"|
|00000c60| 20 2e 20 61 6e 61 6c 79 | 7a 65 64 29 20 28 22 73 | . analy|zed) ("s|
|00000c70| 75 73 70 65 6e 64 65 64 | 22 20 2e 20 73 75 73 70 |uspended|" . susp|
|00000c80| 65 6e 64 65 64 29 20 28 | 22 66 65 65 64 62 61 63 |ended) (|"feedbac|
|00000c90| 6b 22 20 2e 20 66 65 65 | 64 62 61 63 6b 29 20 28 |k" . fee|dback) (|
|00000ca0| 22 63 6c 6f 73 65 64 5c | 5c 2a 22 20 2e 20 63 6c |"closed\|\*" . cl|
|00000cb0| 6f 73 65 64 2a 29 20 28 | 22 63 6c 6f 73 65 64 5c |osed*) (|"closed\|
|00000cc0| 5c 3f 22 20 2e 20 63 6c | 6f 73 65 64 5c 3f 29 20 |\?" . cl|osed\?) |
|00000cd0| 28 22 63 6c 6f 73 65 64 | 22 20 2e 20 63 6c 6f 73 |("closed|" . clos|
|00000ce0| 65 64 29 20 28 22 73 77 | 2d 62 75 67 22 20 2e 20 |ed) ("sw|-bug" . |
|00000cf0| 73 77 2d 62 75 67 29 20 | 28 22 64 6f 63 2d 62 75 |sw-bug) |("doc-bu|
|00000d00| 67 22 20 2e 20 64 6f 63 | 2d 62 75 67 29 20 28 22 |g" . doc|-bug) ("|
|00000d10| 73 75 70 70 6f 72 74 22 | 20 2e 20 73 75 70 70 6f |support"| . suppo|
|00000d20| 72 74 29 20 28 22 63 68 | 61 6e 67 65 2d 72 65 71 |rt) ("ch|ange-req|
|00000d30| 75 65 73 74 22 20 2e 20 | 63 68 61 6e 67 65 2d 72 |uest" . |change-r|
|00000d40| 65 71 75 65 73 74 29 20 | 28 22 6d 69 73 74 61 6b |equest) |("mistak|
|00000d50| 65 6e 22 20 2e 20 6d 69 | 73 74 61 6b 65 6e 29 20 |en" . mi|staken) |
|00000d60| 28 22 64 75 70 6c 69 63 | 61 74 65 22 20 2e 20 64 |("duplic|ate" . d|
|00000d70| 75 70 6c 69 63 61 74 65 | 29 29 20 67 6e 61 74 73 |uplicate|)) gnats|
|00000d80| 2d 61 64 6d 69 6e 3a 3a | 66 6f 6e 74 2d 6c 6f 63 |-admin::|font-loc|
|00000d90| 6b 2d 6b 65 79 77 6f 72 | 64 73 20 63 75 72 72 65 |k-keywor|ds curre|
|00000da0| 6e 74 2d 6c 6f 61 64 2d | 6c 69 73 74 5d 20 32 29 |nt-load-|list] 2)|
|00000db0| 0a 23 40 31 39 20 4c 6f | 63 61 6c 20 70 6f 70 75 |.#@19 Lo|cal popu|
|00000dc0| 70 20 6d 65 6e 75 2e 1f | 0a 28 64 65 66 76 61 72 |p menu..|.(defvar|
|00000dd0| 20 67 6e 61 74 73 2d 61 | 64 6d 69 6e 3a 3a 70 6f | gnats-a|dmin::po|
|00000de0| 70 75 70 2d 6d 65 6e 75 | 20 27 28 22 47 6e 61 74 |pup-menu| '("Gnat|
|00000df0| 73 2d 41 64 6d 69 6e 22 | 20 5b 22 45 64 69 74 22 |s-Admin"| ["Edit"|
|00000e00| 20 27 67 6e 61 74 73 2d | 61 64 6d 69 6e 3a 70 72 | 'gnats-|admin:pr|
|00000e10| 2d 65 64 69 74 20 74 5d | 20 5b 22 56 69 65 77 22 |-edit t]| ["View"|
|00000e20| 20 27 67 6e 61 74 73 2d | 61 64 6d 69 6e 3a 70 72 | 'gnats-|admin:pr|
|00000e30| 2d 76 69 65 77 20 74 5d | 29 20 28 23 24 20 2e 20 |-view t]|) (#$ . |
|00000e40| 33 35 31 30 29 29 0a 23 | 40 35 37 20 48 6f 6f 6b |3510)).#|@57 Hook|
|00000e50| 6c 69 73 74 20 66 6f 72 | 20 70 6f 73 74 2d 71 75 |list for| post-qu|
|00000e60| 65 72 79 20 70 72 6f 63 | 65 73 73 69 6e 67 20 69 |ery proc|essing i|
|00000e70| 6e 20 67 6e 61 74 73 2d | 61 64 6d 69 6e 20 6d 6f |n gnats-|admin mo|
|00000e80| 64 65 2e 1f 0a 28 64 65 | 66 76 61 72 20 67 6e 61 |de...(de|fvar gna|
|00000e90| 74 73 2d 61 64 6d 69 6e | 2d 71 75 65 72 79 2d 68 |ts-admin|-query-h|
|00000ea0| 6f 6f 6b 20 6e 69 6c 20 | 28 23 24 20 2e 20 33 36 |ook nil |(#$ . 36|
|00000eb0| 36 30 29 29 0a 23 40 38 | 32 20 52 65 73 75 6c 74 |60)).#@8|2 Result|
|00000ec0| 73 20 6f 66 20 6f 6e 65 | 20 71 75 65 72 79 20 2d |s of one| query -|
|00000ed0| 2d 20 6d 61 79 20 62 65 | 20 61 6c 74 65 72 65 64 |- may be| altered|
|00000ee0| 20 62 79 20 71 75 65 72 | 79 20 68 6f 6f 6b 20 74 | by quer|y hook t|
|00000ef0| 6f 20 63 68 61 6e 67 65 | 20 72 65 73 75 6c 74 73 |o change| results|
|00000f00| 20 6f 66 20 71 75 65 72 | 79 2e 1f 0a 28 64 65 66 | of quer|y...(def|
|00000f10| 76 61 72 20 67 6e 61 74 | 73 2d 61 64 6d 69 6e 3a |var gnat|s-admin:|
|00000f20| 71 75 65 72 79 2d 6c 69 | 73 74 20 6e 69 6c 20 28 |query-li|st nil (|
|00000f30| 23 24 20 2e 20 33 37 37 | 30 29 29 0a 23 40 31 34 |#$ . 377|0)).#@14|
|00000f40| 35 20 48 6f 6f 6b 6c 69 | 73 74 20 66 6f 72 20 70 |5 Hookli|st for p|
|00000f50| 6f 73 74 2d 72 65 66 72 | 65 73 68 20 70 72 6f 63 |ost-refr|esh proc|
|00000f60| 65 73 73 69 6e 67 20 69 | 6e 20 67 6e 61 74 73 2d |essing i|n gnats-|
|00000f70| 61 64 6d 69 6e 20 6d 6f | 64 65 2e 0a 52 75 6e 20 |admin mo|de..Run |
|00000f80| 61 66 74 65 72 20 61 20 | 72 65 66 72 65 73 68 20 |after a |refresh |
|00000f90| 2d 2d 20 67 6e 61 74 73 | 2d 61 64 6d 69 6e 3a 3a |-- gnats|-admin::|
|00000fa0| 64 69 72 74 79 2d 6c 69 | 73 74 20 6d 61 79 20 63 |dirty-li|st may c|
|00000fb0| 6f 6e 74 61 69 6e 20 6c | 69 73 74 20 6f 66 20 72 |ontain l|ist of r|
|00000fc0| 65 2d 72 65 61 64 20 70 | 72 20 6e 75 6d 62 65 72 |e-read p|r number|
|00000fd0| 73 1f 0a 28 64 65 66 76 | 61 72 20 67 6e 61 74 73 |s..(defv|ar gnats|
|00000fe0| 2d 61 64 6d 69 6e 2d 72 | 65 66 72 65 73 68 2d 68 |-admin-r|efresh-h|
|00000ff0| 6f 6f 6b 20 6e 69 6c 20 | 28 23 24 20 2e 20 33 39 |ook nil |(#$ . 39|
|00001000| 30 36 29 29 0a 23 40 36 | 37 20 46 75 6e 63 74 69 |06)).#@6|7 Functi|
|00001010| 6f 6e 20 6f 66 20 6f 6e | 65 20 61 72 67 75 6d 65 |on of on|e argume|
|00001020| 6e 74 20 74 68 61 74 20 | 67 6f 76 65 72 6e 73 20 |nt that |governs |
|00001030| 69 66 20 61 20 50 52 20 | 73 68 6f 75 6c 64 20 62 |if a PR |should b|
|00001040| 65 20 64 69 70 6c 61 79 | 65 64 2e 1f 0a 28 64 65 |e diplay|ed...(de|
|00001050| 66 76 61 72 20 67 6e 61 | 74 73 2d 61 64 6d 69 6e |fvar gna|ts-admin|
|00001060| 3a 3a 73 65 6c 65 63 74 | 6f 72 20 6e 69 6c 20 28 |::select|or nil (|
|00001070| 23 24 20 2e 20 34 31 30 | 36 29 29 0a 28 61 64 64 |#$ . 410|6)).(add|
|00001080| 2d 68 6f 6f 6b 20 27 67 | 6e 61 74 73 2d 61 64 6d |-hook 'g|nats-adm|
|00001090| 69 6e 2d 72 65 66 72 65 | 73 68 2d 68 6f 6f 6b 20 |in-refre|sh-hook |
|000010a0| 23 5b 6e 69 6c 20 22 c0 | 20 87 22 20 5b 66 6f 6e |#[nil ".| ." [fon|
|000010b0| 74 2d 6c 6f 63 6b 2d 66 | 6f 6e 74 69 66 79 2d 62 |t-lock-f|ontify-b|
|000010c0| 75 66 66 65 72 5d 20 31 | 5d 29 0a 23 40 35 33 20 |uffer] 1|]).#@53 |
|000010d0| 52 75 6e 20 61 20 64 65 | 66 61 75 6c 74 20 71 75 |Run a de|fault qu|
|000010e0| 65 72 79 2c 20 73 65 74 | 74 69 6e 67 20 70 72 2d |ery, set|ting pr-|
|000010f0| 6c 69 73 74 20 74 6f 20 | 74 68 65 20 72 65 73 75 |list to |the resu|
|00001100| 6c 74 2e 1f 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |lt...(de|falias '|
|00001110| 67 6e 61 74 73 2d 61 64 | 6d 69 6e 3a 3a 72 75 6e |gnats-ad|min::run|
|00001120| 2d 71 75 65 72 79 20 23 | 5b 6e 69 6c 20 22 c0 c1 |-query #|[nil "..|
|00001130| c2 20 5c 22 89 13 47 87 | 22 20 5b 61 70 70 6c 79 |. \"..G.|" [apply|
|00001140| 20 76 65 63 74 6f 72 20 | 67 6e 61 74 73 2d 61 64 | vector |gnats-ad|
|00001150| 6d 69 6e 3a 3a 71 75 65 | 72 79 20 70 72 2d 6c 69 |min::que|ry pr-li|
|00001160| 73 74 5d 20 34 20 28 23 | 24 20 2e 20 34 33 30 34 |st] 4 (#|$ . 4304|
|00001170| 29 5d 29 0a 23 40 35 30 | 20 74 72 69 6d 20 74 68 |)]).#@50| trim th|
|00001180| 65 20 6c 65 61 64 69 6e | 67 20 26 20 74 72 61 69 |e leadin|g & trai|
|00001190| 6c 69 6e 67 20 62 6c 61 | 6e 6b 73 20 66 72 6f 6d |ling bla|nks from|
|000011a0| 20 61 20 73 74 72 69 6e | 67 1f 0a 28 64 65 66 61 | a strin|g..(defa|
|000011b0| 6c 69 61 73 20 27 74 72 | 69 6d 20 23 5b 28 73 29 |lias 'tr|im #[(s)|
|000011c0| 20 22 c0 c1 5c 6e 5c 22 | ab 87 5c 6e c3 94 c3 95 | "..\n\"|..\n....|
|000011d0| 4f 87 c4 87 22 20 5b 73 | 74 72 69 6e 67 2d 6d 61 |O..." [s|tring-ma|
|000011e0| 74 63 68 20 22 5e 5c 5c | 73 2d 2a 5c 5c 28 5c 5c |tch "^\\|s-*\\(\\|
|000011f0| 53 2d 2e 2a 5c 5c 53 2d | 5c 5c 7c 5c 5c 53 2d 5c |S-.*\\S-|\\|\\S-\|
|00001200| 5c 29 5c 5c 73 2d 2a 24 | 22 20 73 20 31 20 22 22 |\)\\s-*$|" s 1 ""|
|00001210| 5d 20 33 20 28 23 24 20 | 2e 20 34 34 37 33 29 5d |] 3 (#$ |. 4473)]|
|00001220| 29 0a 23 40 32 38 20 70 | 61 72 73 65 20 6f 6e 65 |).#@28 p|arse one|
|00001230| 20 70 72 2c 20 6d 6f 76 | 69 6e 67 20 70 6f 69 6e | pr, mov|ing poin|
|00001240| 74 1f 0a 28 64 65 66 61 | 6c 69 61 73 20 27 67 6e |t..(defa|lias 'gn|
|00001250| 61 74 73 2d 61 64 6d 69 | 6e 3a 3a 70 61 72 73 65 |ats-admi|n::parse|
|00001260| 2d 70 72 20 23 5b 6e 69 | 6c 20 22 c0 19 c2 c3 c0 |-pr #[ni|l ".....|
|00001270| 5c 22 c4 89 89 1d 1e 06 | 1e 07 1e 08 c0 7f 88 60 |\"......|.......`|
|00001280| 16 07 c4 79 88 60 16 06 | 60 0e 07 57 ab 97 c9 ca |...y.`..|`..W....|
|00001290| 0e 07 cb 23 ab 8f 0e 08 | 0d cc cd ce 21 21 49 88 |...#....|....!!I.|
|000012a0| 0d 54 15 aa 63 0d c3 55 | ac 89 cf d0 0e 06 0e 07 |.T..c..U|........|
|000012b0| 7b 5c 22 88 d1 0e 08 21 | 11 2c 6e ac 83 ce 79 88 |{\"....!|.,n...y.|
|000012c0| 09 29 87 22 20 5b 6e 69 | 6c 20 70 72 20 6d 61 6b |.)." [ni|l pr mak|
|000012d0| 65 2d 76 65 63 74 6f 72 | 20 31 33 20 30 20 69 6e |e-vector| 13 0 in|
|000012e0| 64 65 78 20 62 6f 6c 20 | 6c 69 6d 20 66 6c 76 20 |dex bol |lim flv |
|000012f0| 72 65 2d 73 65 61 72 63 | 68 2d 66 6f 72 77 61 72 |re-searc|h-forwar|
|00001300| 64 20 22 5c 5c 28 5b 5e | 7c 5d 2a 5c 5c 29 7c 22 |d "\\([^||]*\\)|"|
|00001310| 20 74 20 74 72 69 6d 20 | 6d 61 74 63 68 2d 73 74 | t trim |match-st|
|00001320| 72 69 6e 67 20 31 20 65 | 72 72 6f 72 20 22 42 61 |ring 1 e|rror "Ba|
|00001330| 64 20 50 52 20 69 6e 71 | 75 69 72 79 3a 20 25 73 |d PR inq|uiry: %s|
|00001340| 22 20 67 6e 61 74 73 2d | 61 64 6d 69 6e 3a 3a 76 |" gnats-|admin::v|
|00001350| 65 63 2d 3e 70 72 5d 20 | 35 20 28 23 24 20 2e 20 |ec->pr] |5 (#$ . |
|00001360| 34 36 34 37 29 5d 29 0a | 28 64 65 66 61 6c 69 61 |4647)]).|(defalia|
|00001370| 73 20 27 67 6e 61 74 73 | 2d 61 64 6d 69 6e 3a 3a |s 'gnats|-admin::|
|00001380| 71 75 65 72 79 20 23 5b | 28 26 72 65 73 74 20 61 |query #[|(&rest a|
|00001390| 72 67 73 29 20 22 c0 c1 | c2 21 1b 1c 8a 0b 71 88 |rgs) "..|.!....q.|
|000013a0| 65 64 7c 88 c5 c6 21 88 | c7 c8 0e 09 5c 22 16 09 |ed|...!.|....\"..|
|000013b0| ca cb cc c0 cd c0 ce 0e | 09 26 07 88 c5 cf 21 88 |........|.&....!.|
|000013c0| 65 62 88 6d ac 87 d0 20 | 0c 42 14 aa 76 29 c5 d1 |eb.m... |.B..v)..|
|000013d0| 21 88 0c 16 12 d3 d4 21 | 88 0e 12 14 c0 16 12 0c |!......!|........|
|000013e0| 9f 2a 87 22 20 5b 6e 69 | 6c 20 67 65 74 2d 62 75 |.*." [ni|l get-bu|
|000013f0| 66 66 65 72 2d 63 72 65 | 61 74 65 20 22 2a 2a 67 |ffer-cre|ate "**g|
|00001400| 6e 61 74 73 2d 71 75 65 | 72 79 2a 22 20 62 75 66 |nats-que|ry*" buf|
|00001410| 20 70 72 6c 20 6d 65 73 | 73 61 67 65 20 22 52 75 | prl mes|sage "Ru|
|00001420| 6e 6e 69 6e 67 20 71 75 | 65 72 79 22 20 6d 61 70 |nning qu|ery" map|
|00001430| 63 61 72 20 23 5b 28 78 | 29 20 22 c0 c1 5c 6e 5c |car #[(x|) "..\n\|
|00001440| 22 87 22 20 5b 66 6f 72 | 6d 61 74 20 22 25 73 22 |"." [for|mat "%s"|
|00001450| 20 78 5d 20 33 5d 20 61 | 72 67 73 20 61 70 70 6c | x] 3] a|rgs appl|
|00001460| 79 20 63 61 6c 6c 2d 70 | 72 6f 63 65 73 73 20 22 |y call-p|rocess "|
|00001470| 71 75 65 72 79 2d 70 72 | 22 20 74 20 22 2d 2d 73 |query-pr|" t "--s|
|00001480| 71 6c 22 20 22 51 75 65 | 72 79 20 63 6f 6d 70 6c |ql" "Que|ry compl|
|00001490| 65 74 65 64 22 20 67 6e | 61 74 73 2d 61 64 6d 69 |eted" gn|ats-admi|
|000014a0| 6e 3a 3a 70 61 72 73 65 | 2d 70 72 20 22 52 65 73 |n::parse|-pr "Res|
|000014b0| 75 6c 74 20 70 61 72 73 | 65 64 22 20 67 6e 61 74 |ult pars|ed" gnat|
|000014c0| 73 2d 61 64 6d 69 6e 3a | 71 75 65 72 79 2d 6c 69 |s-admin:|query-li|
|000014d0| 73 74 20 72 75 6e 2d 68 | 6f 6f 6b 73 20 67 6e 61 |st run-h|ooks gna|
|000014e0| 74 73 2d 61 64 6d 69 6e | 2d 71 75 65 72 79 2d 68 |ts-admin|-query-h|
|000014f0| 6f 6f 6b 5d 20 38 5d 29 | 0a 23 40 31 31 37 20 6d |ook] 8])|.#@117 m|
|00001500| 61 73 73 61 67 65 20 61 | 20 31 33 2d 65 6c 65 6d |assage a| 13-elem|
|00001510| 65 6e 74 20 76 65 63 74 | 6f 72 20 69 6e 74 6f 20 |ent vect|or into |
|00001520| 74 68 65 20 69 6e 74 65 | 72 6e 61 6c 20 70 72 20 |the inte|rnal pr |
|00001530| 72 65 70 72 65 73 65 6e | 74 61 74 69 6f 6e 2e 0a |represen|tation..|
|00001540| 66 69 65 6c 64 73 20 61 | 72 65 20 61 73 20 64 65 |fields a|re as de|
|00001550| 73 63 72 69 62 65 64 20 | 69 6e 20 71 75 65 72 79 |scribed |in query|
|00001560| 2d 70 72 20 64 6f 63 75 | 6d 65 6e 74 61 74 69 6f |-pr docu|mentatio|
|00001570| 6e 2e 1f 0a 28 64 65 66 | 61 6c 69 61 73 20 27 67 |n...(def|alias 'g|
|00001580| 6e 61 74 73 2d 61 64 6d | 69 6e 3a 3a 76 65 63 2d |nats-adm|in::vec-|
|00001590| 3e 70 72 20 23 5b 28 76 | 29 20 22 c0 09 21 ab 86 |>pr #[(v|) "..!..|
|000015a0| 09 47 c2 55 ac 84 c3 c4 | 21 88 09 c5 c6 09 c5 48 |.G.U....|!......H|
|000015b0| 21 49 88 09 c7 c6 09 c7 | 48 21 49 88 09 c8 09 c8 |!I......|H!I.....|
|000015c0| 48 c9 6b 3f ad 83 09 c8 | 48 49 88 c6 09 ca 48 21 |H.k?....|HI....H!|
|000015d0| 1e 0b 09 ca cc 0e 0b 48 | 49 88 29 c6 09 cd 48 21 |.......H|I.)...H!|
|000015e0| 1e 0b 09 cd ce 0e 0b 48 | 49 88 29 c6 09 cf 48 21 |.......H|I.)...H!|
|000015f0| 1e 0b 09 cf d0 0e 0b 48 | 49 88 29 c6 09 d1 48 21 |.......H|I.)...H!|
|00001600| 1e 0b 09 d1 d2 0e 0b 48 | 49 88 29 c5 d3 20 d4 1e |.......H|I.).. ..|
|00001610| 15 1e 16 1e 17 0e 16 ab | 9a 0e 16 40 09 0e 17 48 |........|...@...H|
|00001620| 42 0e 15 42 16 15 0e 17 | 54 16 17 0e 16 41 89 16 |B..B....|T....A..|
|00001630| 16 ac 66 0e 15 9f 2b 87 | 22 20 5b 76 65 63 74 6f |..f...+.|" [vecto|
|00001640| 72 70 20 76 20 31 33 20 | 65 72 72 6f 72 20 22 4e |rp v 13 |error "N|
|00001650| 6f 74 20 61 20 76 61 6c | 69 64 20 50 52 20 69 6e |ot a val|id PR in|
|00001660| 74 65 72 6d 65 64 69 61 | 74 65 20 66 6f 72 6d 22 |termedia|te form"|
|00001670| 20 30 20 72 65 61 64 20 | 31 20 33 20 22 6e 6f 22 | 0 read |1 3 "no"|
|00001680| 20 34 20 6e 75 6d 20 5b | 6e 75 6c 6c 20 63 72 69 | 4 num [|null cri|
|00001690| 74 69 63 61 6c 20 73 65 | 72 69 6f 75 73 20 6e 6f |tical se|rious no|
|000016a0| 6e 2d 63 72 69 74 69 63 | 61 6c 5d 20 35 20 5b 6e |n-critic|al] 5 [n|
|000016b0| 75 6c 6c 20 68 69 67 68 | 20 6d 65 64 69 75 6d 20 |ull high| medium |
|000016c0| 6c 6f 77 5d 20 37 20 5b | 6e 75 6c 6c 20 6f 70 65 |low] 7 [|null ope|
|000016d0| 6e 20 61 6e 61 6c 79 7a | 65 64 20 73 75 73 70 65 |n analyz|ed suspe|
|000016e0| 6e 64 65 64 20 66 65 65 | 64 62 61 63 6b 20 63 6c |nded fee|dback cl|
|000016f0| 6f 73 65 64 5d 20 38 20 | 5b 6e 75 6c 6c 20 73 77 |osed] 8 |[null sw|
|00001700| 2d 62 75 67 20 64 6f 63 | 2d 62 75 67 20 73 75 70 |-bug doc|-bug sup|
|00001710| 70 6f 72 74 20 63 68 61 | 6e 67 65 2d 72 65 71 75 |port cha|nge-requ|
|00001720| 65 73 74 20 6d 69 73 74 | 61 6b 65 6e 20 64 75 70 |est mist|aken dup|
|00001730| 6c 69 63 61 74 65 5d 20 | 67 6e 61 74 73 2d 61 64 |licate] |gnats-ad|
|00001740| 6d 69 6e 3a 3a 70 72 2d | 66 69 65 6c 64 2d 6e 61 |min::pr-|field-na|
|00001750| 6d 65 73 20 6e 69 6c 20 | 61 6c 20 61 6e 20 76 78 |mes nil |al an vx|
|00001760| 5d 20 35 20 28 23 24 20 | 2e 20 35 33 37 35 29 5d |] 5 (#$ |. 5375)]|
|00001770| 29 0a 23 40 35 33 20 47 | 65 74 2c 20 66 72 6f 6d |).#@53 G|et, from|
|00001780| 20 50 52 2c 20 76 61 6c | 75 65 20 6f 66 20 73 6c | PR, val|ue of sl|
|00001790| 6f 74 20 6e 61 6d 65 64 | 20 46 49 45 4c 44 20 28 |ot named| FIELD (|
|000017a0| 61 20 73 79 6d 62 6f 6c | 29 2e 1f 0a 28 64 65 66 |a symbol|)...(def|
|000017b0| 61 6c 69 61 73 20 27 67 | 6e 61 74 73 2d 61 64 6d |alias 'g|nats-adm|
|000017c0| 69 6e 3a 3a 70 72 2d 67 | 65 74 20 23 5b 28 70 72 |in::pr-g|et #[(pr|
|000017d0| 20 66 69 65 6c 64 29 20 | 22 08 c1 5c 6e 21 b7 89 | field) |"..\n!..|
|000017e0| 1b ad 82 0b 41 29 87 22 | 20 5b 66 69 65 6c 64 20 |....A)."| [field |
|000017f0| 67 6e 61 74 73 2d 61 64 | 6d 69 6e 3a 70 72 20 70 |gnats-ad|min:pr p|
|00001800| 72 20 70 5d 20 34 20 28 | 23 24 20 2e 20 36 30 30 |r p] 4 (|#$ . 600|
|00001810| 37 29 5d 29 0a 23 40 31 | 30 35 20 64 65 73 74 72 |7)]).#@1|05 destr|
|00001820| 75 63 74 69 76 65 6c 79 | 20 73 65 74 20 6b 65 79 |uctively| set key|
|00001830| 27 76 20 61 73 73 6f 63 | 69 61 74 69 6f 6e 20 69 |'v assoc|iation i|
|00001840| 6e 20 74 68 65 20 61 6c | 69 73 74 20 74 6f 20 76 |n the al|ist to v|
|00001850| 61 6c 2e 20 20 72 65 74 | 75 72 6e 73 20 74 68 65 |al.  ret|urns the|
|00001860| 20 6f 72 69 67 69 6e 61 | 6c 0a 6c 69 73 74 2c 20 | origina|l.list, |
|00001870| 75 6e 6c 65 73 73 20 69 | 74 20 77 61 73 20 6e 75 |unless i|t was nu|
|00001880| 6c 6c 1f 0a 28 64 65 66 | 61 6c 69 61 73 20 27 6e |ll..(def|alias 'n|
|00001890| 73 65 74 2d 61 73 73 71 | 20 23 5b 28 61 6c 69 73 |set-assq| #[(alis|
|000018a0| 74 20 6b 65 79 20 76 61 | 6c 29 20 22 08 09 b7 89 |t key va|l) "....|
|000018b0| 1a ab 87 5c 6e 0b a1 88 | 09 aa 86 09 08 0b 42 43 |...\n...|......BC|
|000018c0| a4 29 87 22 20 5b 6b 65 | 79 20 61 6c 69 73 74 20 |.)." [ke|y alist |
|000018d0| 70 20 76 61 6c 5d 20 34 | 20 28 23 24 20 2e 20 36 |p val] 4| (#$ . 6|
|000018e0| 31 37 31 29 5d 29 0a 23 | 40 36 32 20 53 65 74 2c |171)]).#|@62 Set,|
|000018f0| 20 69 6e 20 50 52 2c 20 | 73 6c 6f 74 20 6e 61 6d | in PR, |slot nam|
|00001900| 65 64 20 46 49 45 4c 44 | 20 74 6f 20 56 41 4c 2e |ed FIELD| to VAL.|
|00001910| 20 20 53 6c 6f 74 20 6e | 61 6d 65 20 69 73 20 61 |  Slot n|ame is a|
|00001920| 20 73 79 6d 62 6f 6c 2e | 1f 0a 28 64 65 66 61 6c | symbol.|..(defal|
|00001930| 69 61 73 20 27 67 6e 61 | 74 73 2d 61 64 6d 69 6e |ias 'gna|ts-admin|
|00001940| 3a 3a 70 72 2d 73 65 74 | 21 20 23 5b 28 70 72 20 |::pr-set|! #[(pr |
|00001950| 66 69 65 6c 64 20 76 61 | 6c 29 20 22 c0 09 5c 6e |field va|l) "..\n|
|00001960| 0b 23 87 22 20 5b 6e 73 | 65 74 2d 61 73 73 71 20 |.#." [ns|et-assq |
|00001970| 70 72 20 66 69 65 6c 64 | 20 76 61 6c 5d 20 34 20 |pr field| val] 4 |
|00001980| 28 23 24 20 2e 20 36 33 | 38 30 29 5d 29 0a 28 64 |(#$ . 63|80)]).(d|
|00001990| 65 66 61 6c 69 61 73 20 | 27 67 6e 61 74 73 2d 61 |efalias |'gnats-a|
|000019a0| 64 6d 69 6e 3a 3a 70 72 | 2d 66 69 65 6c 64 2d 69 |dmin::pr|-field-i|
|000019b0| 6e 64 65 78 20 23 5b 28 | 66 65 69 6c 64 29 20 22 |ndex #[(|feild) "|
|000019c0| 08 c1 61 ab 82 c2 87 08 | c3 61 ab 82 c4 87 08 c5 |..a.....|.a......|
|000019d0| 61 ab 82 c6 87 08 c7 61 | ab 82 c8 87 08 c9 61 ab |a......a|......a.|
|000019e0| 82 ca 87 08 cb 61 ab 82 | cc 87 08 cd 61 ab 82 ce |.....a..|....a...|
|000019f0| 87 08 cf 61 ab 82 d0 87 | 08 d1 61 ab 82 d2 87 08 |...a....|..a.....|
|00001a00| d3 61 ab 82 d4 87 08 d5 | 61 ab 82 d6 87 08 d7 61 |.a......|a......a|
|00001a10| ab 82 d8 87 08 d9 61 ad | 81 da 87 22 20 5b 66 65 |......a.|..." [fe|
|00001a20| 69 6c 64 20 4e 75 6d 62 | 65 72 20 30 20 43 61 74 |ild Numb|er 0 Cat|
|00001a30| 65 67 6f 72 79 20 31 20 | 53 79 6e 6f 70 73 69 73 |egory 1 |Synopsis|
|00001a40| 20 32 20 43 6f 6e 66 69 | 64 65 6e 74 69 61 6c 20 | 2 Confi|dential |
|00001a50| 33 20 53 65 76 65 72 69 | 74 79 20 34 20 50 72 69 |3 Severi|ty 4 Pri|
|00001a60| 6f 72 69 74 79 20 35 20 | 52 65 73 70 6f 6e 73 69 |ority 5 |Responsi|
|00001a70| 62 6c 65 20 36 20 53 74 | 61 74 65 20 37 20 43 6c |ble 6 St|ate 7 Cl|
|00001a80| 61 73 73 20 38 20 53 75 | 62 6d 69 74 74 65 72 2d |ass 8 Su|bmitter-|
|00001a90| 49 64 20 39 20 41 72 72 | 69 76 61 6c 2d 44 61 74 |Id 9 Arr|ival-Dat|
|00001aa0| 65 20 31 30 20 4f 72 69 | 67 69 6e 61 74 6f 72 20 |e 10 Ori|ginator |
|00001ab0| 31 31 20 52 65 6c 65 61 | 73 65 20 31 32 5d 20 32 |11 Relea|se 12] 2|
|00001ac0| 5d 29 0a 23 40 35 33 20 | 41 6c 69 73 74 20 74 68 |]).#@53 |Alist th|
|00001ad0| 61 74 20 6d 61 70 73 20 | 66 69 65 6c 64 2d 6e 61 |at maps |field-na|
|00001ae0| 6d 65 2d 3e 28 6e 61 6d | 65 20 69 6e 64 65 78 20 |me->(nam|e index |
|00001af0| 74 79 70 65 20 77 69 64 | 74 68 29 1f 0a 28 64 65 |type wid|th)..(de|
|00001b00| 66 63 6f 6e 73 74 20 67 | 6e 61 74 73 2d 61 64 6d |fconst g|nats-adm|
|00001b10| 69 6e 3a 3a 70 72 2d 66 | 69 65 6c 64 2d 61 6c 69 |in::pr-f|ield-ali|
|00001b20| 73 74 20 27 28 28 22 4e | 75 6d 62 65 72 22 20 30 |st '(("N|umber" 0|
|00001b30| 20 69 6e 74 65 67 65 72 | 20 33 29 20 28 22 43 61 | integer| 3) ("Ca|
|00001b40| 74 65 67 6f 72 79 22 20 | 31 20 73 79 6d 62 6f 6c |tegory" |1 symbol|
|00001b50| 20 31 35 29 20 28 22 53 | 79 6e 6f 70 73 69 73 22 | 15) ("S|ynopsis"|
|00001b60| 20 32 20 73 74 72 69 6e | 67 20 38 30 29 20 28 22 | 2 strin|g 80) ("|
|00001b70| 43 6f 6e 66 69 64 65 6e | 74 69 61 6c 22 20 33 20 |Confiden|tial" 3 |
|00001b80| 62 6f 6f 6c 65 61 6e 20 | 31 29 20 28 22 53 65 76 |boolean |1) ("Sev|
|00001b90| 65 72 69 74 79 22 20 34 | 20 73 79 6d 62 6f 6c 20 |erity" 4| symbol |
|00001ba0| 31 32 29 20 28 22 50 72 | 69 6f 72 69 74 79 22 20 |12) ("Pr|iority" |
|00001bb0| 35 20 73 79 6d 62 6f 6c | 20 36 29 20 28 22 52 65 |5 symbol| 6) ("Re|
|00001bc0| 73 70 6f 6e 73 69 62 6c | 65 22 20 36 20 73 74 72 |sponsibl|e" 6 str|
|00001bd0| 69 6e 67 20 37 29 20 28 | 22 53 74 61 74 65 22 20 |ing 7) (|"State" |
|00001be0| 37 20 73 79 6d 62 6f 6c | 20 38 29 20 28 22 43 6c |7 symbol| 8) ("Cl|
|00001bf0| 61 73 73 22 20 38 20 73 | 79 6d 62 6f 6c 20 31 34 |ass" 8 s|ymbol 14|
|00001c00| 29 20 28 22 53 75 62 6d | 69 74 74 65 72 2d 49 64 |) ("Subm|itter-Id|
|00001c10| 22 20 39 20 73 74 72 69 | 6e 67 20 37 29 20 28 22 |" 9 stri|ng 7) ("|
|00001c20| 41 72 72 69 76 61 6c 2d | 44 61 74 65 22 20 31 30 |Arrival-|Date" 10|
|00001c30| 20 73 74 72 69 6e 67 20 | 31 34 29 20 28 22 4f 72 | string |14) ("Or|
|00001c40| 69 67 69 6e 61 74 6f 72 | 22 20 31 31 20 73 74 72 |iginator|" 11 str|
|00001c50| 69 6e 67 20 33 32 29 20 | 28 22 52 65 6c 65 61 73 |ing 32) |("Releas|
|00001c60| 65 22 20 31 32 20 73 74 | 72 69 6e 67 20 34 38 29 |e" 12 st|ring 48)|
|00001c70| 29 20 28 23 24 20 2e 20 | 36 38 35 36 29 29 0a 23 |) (#$ . |6856)).#|
|00001c80| 40 36 33 20 4c 69 73 74 | 20 6f 66 20 73 79 6d 62 |@63 List| of symb|
|00001c90| 6f 6c 73 20 74 68 61 74 | 20 61 72 65 20 66 69 65 |ols that| are fie|
|00001ca0| 6c 64 20 6b 65 79 73 20 | 69 6e 20 70 72 2e 20 20 |ld keys |in pr.  |
|00001cb0| 4d 75 73 74 20 62 65 20 | 69 6e 20 6f 72 64 65 72 |Must be |in order|
|00001cc0| 2e 1f 0a 28 64 65 66 61 | 6c 69 61 73 20 27 67 6e |...(defa|lias 'gn|
|00001cd0| 61 74 73 2d 61 64 6d 69 | 6e 3a 3a 70 72 2d 66 69 |ats-admi|n::pr-fi|
|00001ce0| 65 6c 64 2d 6e 61 6d 65 | 73 20 23 5b 6e 69 6c 20 |eld-name|s #[nil |
|00001cf0| 22 c0 c1 5c 6e 5c 22 87 | 22 20 5b 6d 61 70 63 61 |"..\n\".|" [mapca|
|00001d00| 72 20 23 5b 28 70 72 29 | 20 22 c0 09 40 21 87 22 |r #[(pr)| "..@!."|
|00001d10| 20 5b 69 6e 74 65 72 6e | 20 70 72 5d 20 32 5d 20 | [intern| pr] 2] |
|00001d20| 67 6e 61 74 73 2d 61 64 | 6d 69 6e 3a 3a 70 72 2d |gnats-ad|min::pr-|
|00001d30| 66 69 65 6c 64 2d 61 6c | 69 73 74 5d 20 33 20 28 |field-al|ist] 3 (|
|00001d40| 23 24 20 2e 20 37 33 30 | 30 29 5d 29 0a 28 62 79 |#$ . 730|0)]).(by|
|00001d50| 74 65 2d 63 6f 64 65 20 | 22 c0 11 c1 5c 6e 42 12 |te-code |"...\nB.|
|00001d60| c3 14 c4 5c 6e 42 12 c1 | 87 22 20 5b 28 28 34 20 |...\nB..|." [((4 |
|00001d70| 43 61 74 65 67 6f 72 79 | 20 43 6c 61 73 73 29 20 |Category| Class) |
|00001d80| 28 33 35 20 50 72 69 6f | 72 69 74 79 20 53 65 76 |(35 Prio|rity Sev|
|00001d90| 65 72 69 74 79 29 20 28 | 36 30 20 52 65 73 70 6f |erity) (|60 Respo|
|00001da0| 6e 73 69 62 6c 65 29 20 | 28 37 30 20 53 74 61 74 |nsible) |(70 Stat|
|00001db0| 65 29 20 6e 6c 20 34 20 | 22 53 79 6e 6f 70 73 69 |e) nl 4 |"Synopsi|
|00001dc0| 73 3a 22 20 53 79 6e 6f | 70 73 69 73 29 20 67 6e |s:" Syno|psis) gn|
|00001dd0| 61 74 73 2d 61 64 6d 69 | 6e 3a 3a 70 72 2d 6c 6f |ats-admi|n::pr-lo|
|00001de0| 6e 67 2d 66 6f 72 6d 61 | 74 20 63 75 72 72 65 6e |ng-forma|t curren|
|00001df0| 74 2d 6c 6f 61 64 2d 6c | 69 73 74 20 28 28 34 20 |t-load-l|ist ((4 |
|00001e00| 43 61 74 65 67 6f 72 79 | 20 43 6c 61 73 73 29 20 |Category| Class) |
|00001e10| 28 33 35 20 50 72 69 6f | 72 69 74 79 20 53 65 76 |(35 Prio|rity Sev|
|00001e20| 65 72 69 74 79 29 20 28 | 36 30 20 52 65 73 70 6f |erity) (|60 Respo|
|00001e30| 6e 73 69 62 6c 65 29 20 | 28 37 30 20 53 74 61 74 |nsible) |(70 Stat|
|00001e40| 65 29 29 20 67 6e 61 74 | 73 2d 61 64 6d 69 6e 3a |e)) gnat|s-admin:|
|00001e50| 3a 70 72 2d 73 68 6f 72 | 74 2d 66 6f 72 6d 61 74 |:pr-shor|t-format|
|00001e60| 5d 20 32 29 0a 23 40 33 | 32 20 46 6f 72 6d 61 74 |] 2).#@3|2 Format|
|00001e70| 20 6c 69 73 74 20 66 6f | 72 20 70 72 69 6e 74 69 | list fo|r printi|
|00001e80| 6e 67 20 61 20 70 72 2e | 1f 0a 28 64 65 66 76 61 |ng a pr.|..(defva|
|00001e90| 72 20 67 6e 61 74 73 2d | 61 64 6d 69 6e 3a 3a 70 |r gnats-|admin::p|
|00001ea0| 72 2d 66 6f 72 6d 61 74 | 20 67 6e 61 74 73 2d 61 |r-format| gnats-a|
|00001eb0| 64 6d 69 6e 3a 3a 70 72 | 2d 73 68 6f 72 74 2d 66 |dmin::pr|-short-f|
|00001ec0| 6f 72 6d 61 74 20 28 23 | 24 20 2e 20 37 37 38 36 |ormat (#|$ . 7786|
|00001ed0| 29 29 0a 23 40 32 33 20 | 53 65 74 20 65 78 74 65 |)).#@23 |Set exte|
|00001ee0| 6e 74 20 61 72 6f 75 6e | 64 20 70 72 2e 1f 0a 28 |nt aroun|d pr...(|
|00001ef0| 64 65 66 61 6c 69 61 73 | 20 27 67 6e 61 74 73 2d |defalias| 'gnats-|
|00001f00| 61 64 6d 69 6e 3a 3a 70 | 72 2d 64 69 73 70 6c 61 |admin::p|r-displa|
|00001f10| 79 2d 68 6f 6f 6b 20 23 | 5b 28 62 20 65 20 70 72 |y-hook #|[(b e pr|
|00001f20| 20 62 75 66 29 20 22 c0 | 09 5c 6e 0b 23 1c c5 0c | buf) ".|.\n.#...|
|00001f30| c6 5c 22 88 c7 0c c8 0e | 08 23 88 c7 0c c9 ca 23 |.\".....|.#.....#|
|00001f40| 88 c7 0c cb ca 23 88 c7 | 0c cc ca 23 29 87 22 20 |.....#..|...#)." |
|00001f50| 5b 6d 61 6b 65 2d 65 78 | 74 65 6e 74 20 62 20 65 |[make-ex|tent b e|
|00001f60| 20 62 75 66 20 65 78 74 | 20 73 65 74 2d 65 78 74 | buf ext| set-ext|
|00001f70| 65 6e 74 2d 6c 61 79 6f | 75 74 20 6f 75 74 73 69 |ent-layo|ut outsi|
|00001f80| 64 65 2d 6d 61 72 67 69 | 6e 20 73 65 74 2d 65 78 |de-margi|n set-ex|
|00001f90| 74 65 6e 74 2d 70 72 6f | 70 65 72 74 79 20 70 72 |tent-pro|perty pr|
|00001fa0| 20 73 74 61 72 74 2d 6f | 70 65 6e 20 74 20 65 6e | start-o|pen t en|
|00001fb0| 64 2d 6f 70 65 6e 20 68 | 69 67 68 6c 69 67 68 74 |d-open h|ighlight|
|00001fc0| 5d 20 34 20 28 23 24 20 | 2e 20 37 38 39 36 29 5d |] 4 (#$ |. 7896)]|
|00001fd0| 29 0a 23 40 32 36 20 41 | 6c 69 73 74 20 6f 66 20 |).#@26 A|list of |
|00001fe0| 66 6f 6e 74 20 70 72 6f | 70 65 72 74 69 65 73 1f |font pro|perties.|
|00001ff0| 0a 28 64 65 66 76 61 72 | 20 67 6e 61 74 73 2d 61 |.(defvar| gnats-a|
|00002000| 64 6d 69 6e 3a 3a 66 61 | 63 65 2d 63 6f 6c 6f 72 |dmin::fa|ce-color|
|00002010| 20 27 28 28 63 72 69 74 | 69 63 61 6c 20 22 66 69 | '((crit|ical "fi|
|00002020| 72 65 62 72 69 63 6b 22 | 20 6e 69 6c 29 20 28 73 |rebrick"| nil) (s|
|00002030| 65 72 69 6f 75 73 20 22 | 67 6f 6c 64 65 6e 72 6f |erious "|goldenro|
|00002040| 64 22 20 6e 69 6c 29 20 | 28 6e 6f 6e 2d 63 72 69 |d" nil) |(non-cri|
|00002050| 74 69 63 61 6c 20 22 62 | 6c 75 65 33 22 20 6e 69 |tical "b|lue3" ni|
|00002060| 6c 29 20 28 68 69 67 68 | 20 22 66 69 72 65 62 72 |l) (high| "firebr|
|00002070| 69 63 6b 22 20 6e 69 6c | 29 20 28 6d 65 64 69 75 |ick" nil|) (mediu|
|00002080| 6d 20 22 67 6f 6c 64 65 | 6e 72 6f 64 22 20 6e 69 |m "golde|nrod" ni|
|00002090| 6c 29 20 28 6c 6f 77 20 | 22 62 6c 75 65 33 22 20 |l) (low |"blue3" |
|000020a0| 6e 69 6c 29 20 28 6f 70 | 65 6e 20 22 66 69 72 65 |nil) (op|en "fire|
|000020b0| 62 72 69 63 6b 22 20 6e | 69 6c 29 20 28 61 6e 61 |brick" n|il) (ana|
|000020c0| 6c 79 7a 65 64 20 22 67 | 6f 6c 64 65 6e 72 6f 64 |lyzed "g|oldenrod|
|000020d0| 22 20 6e 69 6c 29 20 28 | 73 75 73 70 65 6e 64 65 |" nil) (|suspende|
|000020e0| 64 20 22 74 75 72 71 75 | 6f 69 73 65 22 20 6e 69 |d "turqu|oise" ni|
|000020f0| 6c 29 20 28 66 65 65 64 | 62 61 63 6b 20 22 62 6c |l) (feed|back "bl|
|00002100| 75 65 33 22 20 6e 69 6c | 29 20 28 63 6c 6f 73 65 |ue3" nil|) (close|
|00002110| 64 20 22 46 6f 72 65 73 | 74 47 72 65 65 6e 22 20 |d "Fores|tGreen" |
|00002120| 6e 69 6c 29 20 28 63 6c | 6f 73 65 64 2a 20 22 48 |nil) (cl|osed* "H|
|00002130| 6f 74 50 69 6e 6b 22 20 | 6e 69 6c 29 20 28 63 6c |otPink" |nil) (cl|
|00002140| 6f 73 65 64 5c 3f 20 22 | 62 6c 75 65 33 22 20 6e |osed\? "|blue3" n|
|00002150| 69 6c 29 20 28 73 77 2d | 62 75 67 20 6e 69 6c 20 |il) (sw-|bug nil |
|00002160| 6e 69 6c 29 20 28 64 6f | 63 2d 62 75 67 20 6e 69 |nil) (do|c-bug ni|
|00002170| 6c 20 6e 69 6c 29 20 28 | 73 75 70 70 6f 72 74 20 |l nil) (|support |
|00002180| 6e 69 6c 20 6e 69 6c 29 | 20 28 63 68 61 6e 67 65 |nil nil)| (change|
|00002190| 2d 72 65 71 75 65 73 74 | 20 6e 69 6c 20 6e 69 6c |-request| nil nil|
|000021a0| 29 20 28 6d 69 73 74 61 | 6b 65 6e 20 6e 69 6c 20 |) (mista|ken nil |
|000021b0| 6e 69 6c 29 20 28 64 75 | 70 6c 69 63 61 74 65 20 |nil) (du|plicate |
|000021c0| 6e 69 6c 20 6e 69 6c 29 | 29 20 28 23 24 20 2e 20 |nil nil)|) (#$ . |
|000021d0| 38 31 35 31 29 29 0a 23 | 40 34 32 20 44 69 73 70 |8151)).#|@42 Disp|
|000021e0| 6c 61 79 20 76 61 6c 75 | 65 20 66 69 65 6c 64 20 |lay valu|e field |
|000021f0| 6f 6e 20 73 70 65 63 69 | 66 69 65 64 20 73 74 72 |on speci|fied str|
|00002200| 65 61 6d 2e 1f 0a 28 64 | 65 66 61 6c 69 61 73 20 |eam...(d|efalias |
|00002210| 27 67 6e 61 74 73 2d 61 | 64 6d 69 6e 3a 3a 66 69 |'gnats-a|dmin::fi|
|00002220| 65 6c 64 2d 64 69 73 70 | 6c 61 79 20 23 5b 28 70 |eld-disp|lay #[(p|
|00002230| 72 20 66 6c 64 20 62 75 | 66 29 20 22 c0 09 5c 6e |r fld bu|f) "..\n|
|00002240| 5c 22 1b c4 0b 0d 5c 22 | 29 87 22 20 5b 67 6e 61 |\"....\"|)." [gna|
|00002250| 74 73 2d 61 64 6d 69 6e | 3a 3a 70 72 2d 67 65 74 |ts-admin|::pr-get|
|00002260| 20 70 72 20 66 6c 64 20 | 66 76 20 70 72 69 6e 63 | pr fld |fv princ|
|00002270| 20 62 75 66 5d 20 33 20 | 28 23 24 20 2e 20 38 36 | buf] 3 |(#$ . 86|
|00002280| 36 38 29 5d 29 0a 23 40 | 35 38 20 50 72 69 6e 74 |68)]).#@|58 Print|
|00002290| 65 72 20 66 6f 72 20 70 | 72 2e 20 20 44 65 70 65 |er for p|r.  Depe|
|000022a0| 6e 64 73 20 6f 6e 20 66 | 72 65 65 20 76 61 72 69 |nds on f|ree vari|
|000022b0| 61 62 6c 65 20 70 72 2d | 64 69 64 2d 69 6e 64 65 |able pr-|did-inde|
|000022c0| 6e 74 2e 1f 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |nt...(de|falias '|
|000022d0| 67 6e 61 74 73 2d 61 64 | 6d 69 6e 3a 3a 70 72 2d |gnats-ad|min::pr-|
|000022e0| 70 72 69 6e 74 2d 66 75 | 6e 63 20 23 5b 28 66 20 |print-fu|nc #[(f |
|000022f0| 70 72 20 62 75 66 29 20 | 22 08 c1 61 ab 8a c2 c3 |pr buf) |"..a....|
|00002300| 0c 5c 22 88 c5 16 06 aa | da 08 3c ab 9a 08 89 1e |.\".....|..<.....|
|00002310| 07 ab 91 c8 0e 07 40 0e | 09 0c 23 88 0e 07 41 89 |......@.|..#...A.|
|00002320| 16 07 ac 6f 29 aa bc 08 | a7 ab 8a ca 08 cb 5c 22 |...o)...|......\"|
|00002330| 88 c5 16 06 aa ae 08 39 | ab 95 0e 06 ac 85 c2 cc |.......9|........|
|00002340| 0c 5c 22 88 cd 0e 09 08 | 0c 23 88 ce 16 06 aa 95 |.\".....|.#......|
|00002350| 08 3b ab 91 0e 06 ac 85 | c2 cc 0c 5c 22 88 c2 08 |.;......|...\"...|
|00002360| 0c 5c 22 88 ce 16 06 c5 | 87 22 20 5b 66 20 6e 6c |.\".....|." [f nl|
|00002370| 20 70 72 69 6e 63 20 22 | 5c 6e 20 22 20 62 75 66 | princ "|\n " buf|
|00002380| 20 74 20 70 72 2d 64 69 | 64 2d 69 6e 64 65 6e 74 | t pr-di|d-indent|
|00002390| 20 66 6d 74 20 67 6e 61 | 74 73 2d 61 64 6d 69 6e | fmt gna|ts-admin|
|000023a0| 3a 3a 70 72 2d 70 72 69 | 6e 74 2d 66 75 6e 63 20 |::pr-pri|nt-func |
|000023b0| 70 72 20 69 6e 64 65 6e | 74 2d 74 6f 2d 63 6f 6c |pr inden|t-to-col|
|000023c0| 75 6d 6e 20 31 20 22 20 | 22 20 67 6e 61 74 73 2d |umn 1 " |" gnats-|
|000023d0| 61 64 6d 69 6e 3a 3a 66 | 69 65 6c 64 2d 64 69 73 |admin::f|ield-dis|
|000023e0| 70 6c 61 79 20 6e 69 6c | 5d 20 35 20 28 23 24 20 |play nil|] 5 (#$ |
|000023f0| 2e 20 38 38 34 33 29 5d | 29 0a 28 64 65 66 61 6c |. 8843)]|).(defal|
|00002400| 69 61 73 20 27 67 6e 61 | 74 73 2d 61 64 6d 69 6e |ias 'gna|ts-admin|
|00002410| 3a 3a 64 69 73 70 6c 61 | 79 2d 70 72 20 23 5b 28 |::displa|y-pr #[(|
|00002420| 70 72 20 26 6f 70 74 69 | 6f 6e 61 6c 20 62 75 66 |pr &opti|onal buf|
|00002430| 29 20 22 08 ac 82 70 10 | 60 c1 89 1a 1b 1c c5 c6 |) "...p.|`.......|
|00002440| 0e 07 21 08 5c 22 88 0e | 08 89 1e 09 ab 91 ca 0e |..!.\"..|........|
|00002450| 09 40 0e 07 08 23 88 0e | 09 41 89 16 09 ac 6f 29 |.@...#..|.A....o)|
|00002460| cb 0c 60 c6 0e 07 21 08 | 24 88 cc 20 2b 87 22 20 |..`...!.|$.. +." |
|00002470| 5b 62 75 66 20 6e 69 6c | 20 70 72 2d 64 69 64 2d |[buf nil| pr-did-|
|00002480| 69 6e 64 65 6e 74 20 62 | 75 66 66 65 72 2d 72 65 |indent b|uffer-re|
|00002490| 61 64 2d 6f 6e 6c 79 20 | 62 20 70 72 69 6e 63 20 |ad-only |b princ |
|000024a0| 67 6e 61 74 73 2d 61 64 | 6d 69 6e 3a 3a 70 72 2d |gnats-ad|min::pr-|
|000024b0| 6e 75 6d 62 65 72 20 70 | 72 20 67 6e 61 74 73 2d |number p|r gnats-|
|000024c0| 61 64 6d 69 6e 3a 3a 70 | 72 2d 66 6f 72 6d 61 74 |admin::p|r-format|
|000024d0| 20 66 6d 74 20 67 6e 61 | 74 73 2d 61 64 6d 69 6e | fmt gna|ts-admin|
|000024e0| 3a 3a 70 72 2d 70 72 69 | 6e 74 2d 66 75 6e 63 20 |::pr-pri|nt-func |
|000024f0| 67 6e 61 74 73 2d 61 64 | 6d 69 6e 3a 3a 70 72 2d |gnats-ad|min::pr-|
|00002500| 64 69 73 70 6c 61 79 2d | 68 6f 6f 6b 20 6e 65 77 |display-|hook new|
|00002510| 6c 69 6e 65 5d 20 35 5d | 29 0a 23 40 33 30 20 46 |line] 5]|).#@30 F|
|00002520| 69 6e 64 20 74 68 65 20 | 65 78 74 65 6e 74 20 66 |ind the |extent f|
|00002530| 6f 72 20 74 68 69 73 20 | 50 52 2e 1f 0a 28 64 65 |or this |PR...(de|
|00002540| 66 61 6c 69 61 73 20 27 | 67 6e 61 74 73 2d 61 64 |falias '|gnats-ad|
|00002550| 6d 69 6e 3a 3a 70 72 2d | 62 75 66 66 65 72 2d 65 |min::pr-|buffer-e|
|00002560| 78 74 65 6e 74 20 23 5b | 28 70 72 29 20 22 c0 c1 |xtent #[|(pr) "..|
|00002570| 5c 6e 21 54 c3 5c 6e 21 | c2 23 87 22 20 5b 65 78 |\n!T.\n!|.#." [ex|
|00002580| 74 65 6e 74 2d 61 74 20 | 67 6e 61 74 73 2d 61 64 |tent-at |gnats-ad|
|00002590| 6d 69 6e 3a 3a 70 72 2d | 62 75 66 66 65 72 2d 62 |min::pr-|buffer-b|
|000025a0| 65 67 69 6e 20 70 72 20 | 67 6e 61 74 73 2d 61 64 |egin pr |gnats-ad|
|000025b0| 6d 69 6e 3a 3a 70 72 2d | 62 75 66 66 65 72 5d 20 |min::pr-|buffer] |
|000025c0| 34 20 28 23 24 20 2e 20 | 39 35 30 33 29 5d 29 0a |4 (#$ . |9503)]).|
|000025d0| 23 40 34 30 20 52 65 72 | 75 6e 20 71 75 65 72 79 |#@40 Rer|un query|
|000025e0| 20 66 6f 72 20 6f 6e 65 | 20 50 52 20 69 6e 20 74 | for one| PR in t|
|000025f0| 68 65 20 70 72 2d 6c 69 | 73 74 2e 1f 0a 28 64 65 |he pr-li|st...(de|
|00002600| 66 61 6c 69 61 73 20 27 | 67 6e 61 74 73 2d 61 64 |falias '|gnats-ad|
|00002610| 6d 69 6e 3a 3a 70 72 2d | 72 65 72 65 61 64 20 23 |min::pr-|reread #|
|00002620| 5b 28 70 72 29 20 22 c0 | 09 21 1a c3 5c 6e 21 89 |[(pr) ".|.!..\n!.|
|00002630| 1c 3c ab 96 0c 47 c5 55 | ab 90 c6 0c 40 c7 5c 22 |.<...G.U|....@.\"|
|00002640| 5c 6e 55 ab 87 c8 5c 6e | 0c 40 5c 22 aa 84 c9 ca |\nU...\n|.@\"....|
|00002650| 5c 6e 5c 22 2a 87 22 20 | 5b 67 6e 61 74 73 2d 61 |\n\"*." |[gnats-a|
|00002660| 64 6d 69 6e 3a 3a 70 72 | 2d 6e 75 6d 62 65 72 20 |dmin::pr|-number |
|00002670| 70 72 20 6e 75 6d 20 67 | 6e 61 74 73 2d 61 64 6d |pr num g|nats-adm|
|00002680| 69 6e 3a 3a 71 75 65 72 | 79 20 72 65 70 6c 20 31 |in::quer|y repl 1|
|00002690| 20 67 6e 61 74 73 2d 61 | 64 6d 69 6e 3a 3a 70 72 | gnats-a|dmin::pr|
|000026a0| 2d 67 65 74 20 4e 75 6d | 62 65 72 20 67 6e 61 74 |-get Num|ber gnat|
|000026b0| 73 2d 61 64 6d 69 6e 3a | 3a 70 72 2d 72 65 70 6c |s-admin:|:pr-repl|
|000026c0| 61 63 65 21 20 65 72 72 | 6f 72 20 22 51 75 65 72 |ace! err|or "Quer|
|000026d0| 79 20 66 61 69 6c 65 64 | 20 66 6f 72 20 70 72 20 |y failed| for pr |
|000026e0| 25 73 22 5d 20 34 20 28 | 23 24 20 2e 20 39 36 38 |%s"] 4 (|#$ . 968|
|000026f0| 35 29 5d 29 0a 23 40 36 | 39 20 52 65 74 75 72 6e |5)]).#@6|9 Return|
|00002700| 20 74 68 65 20 65 6c 65 | 6d 65 6e 74 73 20 6f 66 | the ele|ments of|
|00002710| 20 4c 4f 50 52 53 20 28 | 6c 69 73 74 20 6f 66 20 | LOPRS (|list of |
|00002720| 50 52 27 73 29 20 77 68 | 69 63 68 20 73 61 74 69 |PR's) wh|ich sati|
|00002730| 66 79 20 50 52 45 44 69 | 63 61 74 65 2e 1f 0a 28 |fy PREDi|cate...(|
|00002740| 64 65 66 61 6c 69 61 73 | 20 27 67 6e 61 74 73 2d |defalias| 'gnats-|
|00002750| 61 64 6d 69 6e 3a 3a 73 | 65 6c 65 63 74 69 6f 6e |admin::s|election|
|00002760| 20 23 5b 28 6c 6f 70 72 | 73 29 20 22 08 89 19 ac | #[(lopr|s) "....|
|00002770| 83 5c 6e aa eb c3 5c 6e | 21 ab b1 5c 6e 1c c5 1e |.\n...\n|!..\n...|
|00002780| 06 c7 1e 08 c7 1e 09 0e | 06 54 89 16 06 0c 47 57 |........|.T....GW|
|00002790| ab 95 0c 0e 06 48 16 08 | 09 0e 08 21 ab 69 0e 08 |.....H..|...!.i..|
|000027a0| 0e 09 42 16 09 aa 60 0e | 09 9f 2c aa b5 5c 6e 3c |..B...`.|..,..\n<|
|000027b0| ab ae 5c 6e 1e 5c 6e c7 | 1e 08 c7 1e 0b 0e 5c 6e |..\n.\n.|......\n|
|000027c0| 3a ab 9a 0e 5c 6e 40 16 | 08 09 0e 08 21 ab 87 0e |:...\n@.|....!...|
|000027d0| 08 0e 0b 42 16 0b 0e 5c | 6e 41 89 16 5c 6e aa 63 |...B...\|nA..\n.c|
|000027e0| 0e 0b 9f 2b aa 83 cc cd | 21 29 87 22 20 5b 67 6e |...+....|!)." [gn|
|000027f0| 61 74 73 2d 61 64 6d 69 | 6e 3a 3a 73 65 6c 65 63 |ats-admi|n::selec|
|00002800| 74 6f 72 20 70 72 65 64 | 20 6c 6f 70 72 73 20 61 |tor pred| loprs a|
|00002810| 72 72 61 79 70 20 47 38 | 37 37 35 30 20 2d 31 20 |rrayp G8|7750 -1 |
|00002820| 47 38 37 37 35 31 20 6e | 69 6c 20 70 72 20 47 38 |G87751 n|il pr G8|
|00002830| 37 37 35 32 20 47 38 37 | 37 35 33 20 47 38 37 37 |7752 G87|753 G877|
|00002840| 35 34 20 65 72 72 6f 72 | 20 22 42 61 64 20 74 79 |54 error| "Bad ty|
|00002850| 70 65 20 66 6f 72 20 50 | 52 20 63 6f 6c 6c 65 63 |pe for P|R collec|
|00002860| 74 69 6f 6e 22 5d 20 34 | 20 28 23 24 20 2e 20 39 |tion"] 4| (#$ . 9|
|00002870| 39 37 38 29 5d 29 0a 23 | 40 35 34 20 54 65 73 74 |978)]).#|@54 Test|
|00002880| 20 74 6f 20 73 65 65 20 | 69 66 20 6f 6e 65 20 70 | to see |if one p|
|00002890| 72 20 6d 65 65 74 73 20 | 74 68 65 20 73 65 6c 65 |r meets |the sele|
|000028a0| 63 74 69 6f 6e 20 63 72 | 69 74 65 72 69 6f 6e 2e |ction cr|iterion.|
|000028b0| 1f 0a 28 64 65 66 61 6c | 69 61 73 20 27 67 6e 61 |..(defal|ias 'gna|
|000028c0| 74 73 2d 61 64 6d 69 6e | 3a 3a 73 65 6c 65 63 74 |ts-admin|::select|
|000028d0| 65 64 5c 3f 20 23 5b 28 | 70 72 29 20 22 08 3f ae |ed\? #[(|pr) ".?.|
|000028e0| 83 08 09 21 87 22 20 5b | 67 6e 61 74 73 2d 61 64 |...!." [|gnats-ad|
|000028f0| 6d 69 6e 3a 3a 73 65 6c | 65 63 74 6f 72 20 70 72 |min::sel|ector pr|
|00002900| 5d 20 32 20 28 23 24 20 | 2e 20 31 30 33 36 34 29 |] 2 (#$ |. 10364)|
|00002910| 5d 29 0a 23 40 33 37 20 | 52 65 70 6c 61 63 65 20 |]).#@37 |Replace |
|00002920| 74 68 65 20 6f 6c 64 20 | 70 72 20 77 69 74 68 20 |the old |pr with |
|00002930| 74 68 65 20 6e 65 77 20 | 6f 6e 65 1f 0a 28 64 65 |the new |one..(de|
|00002940| 66 61 6c 69 61 73 20 27 | 67 6e 61 74 73 2d 61 64 |falias '|gnats-ad|
|00002950| 6d 69 6e 3a 3a 70 72 2d | 72 65 70 6c 61 63 65 21 |min::pr-|replace!|
|00002960| 20 23 5b 28 6f 6c 64 70 | 72 20 6e 65 77 70 72 29 | #[(oldp|r newpr)|
|00002970| 20 22 08 3a ac 84 c1 c2 | 21 88 c3 08 21 1c c3 0d | ".:....|!...!...|
|00002980| 21 0c 55 ac 84 c1 c6 21 | 88 0e 07 47 0c 57 ab 8e |!.U....!|...G.W..|
|00002990| c8 0e 07 c9 0c 0e 07 47 | 5a ca 5c 22 5c 22 16 07 |.......G|Z.\"\"..|
|000029a0| 0e 07 0c 53 08 49 29 87 | 22 20 5b 6e 65 77 70 72 |...S.I).|" [newpr|
|000029b0| 20 65 72 72 6f 72 20 22 | 52 65 70 6c 61 63 65 6d | error "|Replacem|
|000029c0| 65 6e 74 20 70 72 20 6d | 75 73 74 20 62 65 20 61 |ent pr m|ust be a|
|000029d0| 20 66 75 6c 6c 20 50 52 | 20 76 61 6c 75 65 22 20 | full PR| value" |
|000029e0| 67 6e 61 74 73 2d 61 64 | 6d 69 6e 3a 3a 70 72 2d |gnats-ad|min::pr-|
|000029f0| 6e 75 6d 62 65 72 20 70 | 72 2d 6e 75 6d 20 6f 6c |number p|r-num ol|
|00002a00| 64 70 72 20 22 43 61 6e | 6e 6f 74 20 72 65 70 6c |dpr "Can|not repl|
|00002a10| 61 63 65 20 50 52 20 77 | 69 74 68 20 6f 6e 65 20 |ace PR w|ith one |
|00002a20| 6f 66 20 64 69 66 66 65 | 72 65 6e 74 20 6e 75 6d |of diffe|rent num|
|00002a30| 62 65 72 22 20 70 72 2d | 6c 69 73 74 20 76 63 6f |ber" pr-|list vco|
|00002a40| 6e 63 61 74 20 6d 61 6b | 65 2d 76 65 63 74 6f 72 |ncat mak|e-vector|
|00002a50| 20 6e 69 6c 5d 20 35 20 | 28 23 24 20 2e 20 31 30 | nil] 5 |(#$ . 10|
|00002a60| 35 32 30 29 5d 29 0a 23 | 40 35 39 20 4c 69 73 74 |520)]).#|@59 List|
|00002a70| 20 6f 66 20 50 52 73 20 | 77 68 69 63 68 20 6d 61 | of PRs |which ma|
|00002a80| 79 20 62 65 20 6f 75 74 | 20 6f 66 20 64 61 74 65 |y be out| of date|
|00002a90| 20 61 6e 64 20 6e 65 65 | 64 20 72 65 66 72 65 73 | and nee|d refres|
|00002aa0| 68 69 6e 67 2e 1f 0a 28 | 64 65 66 76 61 72 20 67 |hing...(|defvar g|
|00002ab0| 6e 61 74 73 2d 61 64 6d | 69 6e 3a 3a 64 69 72 74 |nats-adm|in::dirt|
|00002ac0| 79 2d 6c 69 73 74 20 6e | 69 6c 20 28 23 24 20 2e |y-list n|il (#$ .|
|00002ad0| 20 31 30 38 36 30 29 29 | 0a 23 40 34 30 20 52 65 | 10860))|.#@40 Re|
|00002ae0| 73 65 74 20 74 68 65 20 | 63 61 63 68 65 64 20 64 |set the |cached d|
|00002af0| 61 74 61 20 66 6f 72 20 | 67 6e 61 74 73 2d 61 64 |ata for |gnats-ad|
|00002b00| 6d 69 6e 2e 1f 0a 28 64 | 65 66 61 6c 69 61 73 20 |min...(d|efalias |
|00002b10| 27 67 6e 61 74 73 2d 61 | 64 6d 69 6e 3a 72 65 73 |'gnats-a|dmin:res|
|00002b20| 65 74 20 23 5b 6e 69 6c | 20 22 c0 11 c0 89 12 87 |et #[nil| "......|
|00002b30| 22 20 5b 6e 69 6c 20 70 | 72 2d 6c 69 73 74 20 67 |" [nil p|r-list g|
|00002b40| 6e 61 74 73 2d 61 64 6d | 69 6e 3a 3a 64 69 72 74 |nats-adm|in::dirt|
|00002b50| 79 2d 6c 69 73 74 5d 20 | 32 20 28 23 24 20 2e 20 |y-list] |2 (#$ . |
|00002b60| 31 30 39 37 34 29 5d 29 | 0a 23 40 36 38 20 43 72 |10974)])|.#@68 Cr|
|00002b70| 65 61 74 65 20 6f 72 20 | 65 64 69 74 20 74 68 65 |eate or |edit the|
|00002b80| 20 72 65 67 72 65 73 73 | 69 6f 6e 20 74 65 73 74 | regress|ion test|
|00002b90| 20 66 6f 72 20 74 68 65 | 20 63 75 72 72 65 6e 74 | for the| current|
|00002ba0| 20 70 72 6f 62 6c 65 6d | 20 72 65 70 6f 72 74 2e | problem| report.|
|00002bb0| 1f 0a 28 64 65 66 61 6c | 69 61 73 20 27 67 6e 61 |..(defal|ias 'gna|
|00002bc0| 74 73 2d 61 64 6d 69 6e | 3a 72 65 67 72 65 74 20 |ts-admin|:regret |
|00002bd0| 23 5b 6e 69 6c 20 22 c0 | 60 21 19 c2 09 21 1b c4 |#[nil ".|`!...!..|
|00002be0| 0b 21 2a 87 22 20 5b 67 | 6e 61 74 73 2d 61 64 6d |.!*." [g|nats-adm|
|00002bf0| 69 6e 3a 3a 70 72 2d 61 | 74 20 70 72 20 67 6e 61 |in::pr-a|t pr gna|
|00002c00| 74 73 2d 61 64 6d 69 6e | 3a 3a 70 72 2d 6e 75 6d |ts-admin|::pr-num|
|00002c10| 62 65 72 20 6e 75 6d 20 | 70 72 2d 72 65 67 72 65 |ber num |pr-regre|
|00002c20| 74 5d 20 32 20 28 23 24 | 20 2e 20 31 31 31 31 38 |t] 2 (#$| . 11118|
|00002c30| 29 20 6e 69 6c 5d 29 0a | 28 64 65 66 61 6c 69 61 |) nil]).|(defalia|
|00002c40| 73 20 27 67 6e 61 74 73 | 2d 61 64 6d 69 6e 3a 72 |s 'gnats|-admin:r|
|00002c50| 65 66 72 65 73 68 20 23 | 5b 28 26 6f 70 74 69 6f |efresh #|[(&optio|
|00002c60| 6e 61 6c 20 66 6f 72 63 | 65 29 20 22 08 ab 83 c1 |nal forc|e) "....|
|00002c70| 20 88 5c 6e ac 85 c3 20 | 88 aa 86 c4 c5 0e 06 5c | .\n... |.......\|
|00002c80| 22 88 c7 16 06 c8 20 71 | 88 70 c7 c9 60 21 1e 5c |"..... q|.p..`!.\|
|00002c90| 6e 1e 0b 1e 0c 65 64 7c | 88 cd 20 88 ce cf 21 88 |n....ed||.. ...!.|
|00002ca0| c4 d0 5c 6e 5c 22 88 ce | c7 21 88 d1 d2 d3 8f 88 |..\n\"..|.!......|
|00002cb0| 2b d4 d5 21 88 d6 87 22 | 20 5b 66 6f 72 63 65 20 |+..!..."| [force |
|00002cc0| 67 6e 61 74 73 2d 61 64 | 6d 69 6e 3a 72 65 73 65 |gnats-ad|min:rese|
|00002cd0| 74 20 70 72 2d 6c 69 73 | 74 20 67 6e 61 74 73 2d |t pr-lis|t gnats-|
|00002ce0| 61 64 6d 69 6e 3a 3a 72 | 75 6e 2d 71 75 65 72 79 |admin::r|un-query|
|00002cf0| 20 6d 61 70 63 20 23 5b | 28 70 29 20 22 c0 09 21 | mapc #[|(p) "..!|
|00002d00| 87 22 20 5b 67 6e 61 74 | 73 2d 61 64 6d 69 6e 3a |." [gnat|s-admin:|
|00002d10| 3a 70 72 2d 72 65 72 65 | 61 64 20 70 5d 20 32 5d |:pr-rere|ad p] 2]|
|00002d20| 20 67 6e 61 74 73 2d 61 | 64 6d 69 6e 3a 3a 64 69 | gnats-a|dmin::di|
|00002d30| 72 74 79 2d 6c 69 73 74 | 20 6e 69 6c 20 67 6e 61 |rty-list| nil gna|
|00002d40| 74 73 2d 61 64 6d 69 6e | 3a 3a 62 75 66 66 65 72 |ts-admin|::buffer|
|00002d50| 20 67 6e 61 74 73 2d 61 | 64 6d 69 6e 3a 3a 70 72 | gnats-a|dmin::pr|
|00002d60| 2d 6e 75 6d 2d 61 74 20 | 74 68 69 73 2d 70 72 2d |-num-at |this-pr-|
|00002d70| 6e 75 6d 20 62 75 66 66 | 65 72 2d 72 65 61 64 2d |num buff|er-read-|
|00002d80| 6f 6e 6c 79 20 73 74 61 | 6e 64 61 72 64 2d 6f 75 |only sta|ndard-ou|
|00002d90| 74 70 75 74 20 62 65 67 | 69 6e 6e 69 6e 67 2d 6f |tput beg|inning-o|
|00002da0| 66 2d 62 75 66 66 65 72 | 20 6d 65 73 73 61 67 65 |f-buffer| message|
|00002db0| 20 22 52 65 64 69 73 70 | 6c 61 79 22 20 23 5b 28 | "Redisp|lay" #[(|
|00002dc0| 70 72 29 20 22 c0 09 21 | ad 83 c2 09 21 87 22 20 |pr) "..!|....!." |
|00002dd0| 5b 67 6e 61 74 73 2d 61 | 64 6d 69 6e 3a 3a 73 65 |[gnats-a|dmin::se|
|00002de0| 6c 65 63 74 65 64 5c 3f | 20 70 72 20 67 6e 61 74 |lected\?| pr gnat|
|00002df0| 73 2d 61 64 6d 69 6e 3a | 3a 64 69 73 70 6c 61 79 |s-admin:|:display|
|00002e00| 2d 70 72 5d 20 32 5d 20 | 65 72 72 20 28 62 79 74 |-pr] 2] |err (byt|
|00002e10| 65 2d 63 6f 64 65 20 22 | 08 a7 ab 84 c1 08 21 88 |e-code "|......!.|
|00002e20| c1 87 22 20 5b 74 68 69 | 73 2d 70 72 2d 6e 75 6d |.." [thi|s-pr-num|
|00002e30| 20 67 6e 61 74 73 2d 61 | 64 6d 69 6e 3a 67 6f 74 | gnats-a|dmin:got|
|00002e40| 6f 2d 70 72 5d 20 32 29 | 20 28 28 73 65 61 72 63 |o-pr] 2)| ((searc|
|00002e50| 68 2d 66 61 69 6c 65 64 | 20 28 62 79 74 65 2d 63 |h-failed| (byte-c|
|00002e60| 6f 64 65 20 22 64 62 87 | 22 20 5b 5d 20 31 29 29 |ode "db.|" [] 1))|
|00002e70| 29 20 72 75 6e 2d 68 6f | 6f 6b 73 20 67 6e 61 74 |) run-ho|oks gnat|
|00002e80| 73 2d 61 64 6d 69 6e 2d | 72 65 66 72 65 73 68 2d |s-admin-|refresh-|
|00002e90| 68 6f 6f 6b 20 74 5d 20 | 34 20 6e 69 6c 20 22 50 |hook t] |4 nil "P|
|00002ea0| 22 5d 29 0a 23 40 37 34 | 20 47 65 74 20 74 68 65 |"]).#@74| Get the|
|00002eb0| 20 6e 75 6d 62 65 72 20 | 6f 66 20 74 68 69 73 20 | number |of this |
|00002ec0| 70 72 20 2d 2d 20 77 68 | 69 63 68 20 63 61 6e 20 |pr -- wh|ich can |
|00002ed0| 62 65 20 65 69 74 68 65 | 72 20 61 20 70 72 20 64 |be eithe|r a pr d|
|00002ee0| 61 74 75 6d 20 6f 72 20 | 61 20 6e 75 6d 62 65 72 |atum or |a number|
|00002ef0| 2e 1f 0a 28 64 65 66 61 | 6c 69 61 73 20 27 67 6e |...(defa|lias 'gn|
|00002f00| 61 74 73 2d 61 64 6d 69 | 6e 3a 3a 70 72 2d 6e 75 |ats-admi|n::pr-nu|
|00002f10| 6d 62 65 72 20 23 5b 28 | 70 72 29 20 22 08 a7 ab |mber #[(|pr) "...|
|00002f20| 83 08 ae 84 c1 08 c2 5c | 22 87 22 20 5b 70 72 20 |.......\|"." [pr |
|00002f30| 67 6e 61 74 73 2d 61 64 | 6d 69 6e 3a 3a 70 72 2d |gnats-ad|min::pr-|
|00002f40| 67 65 74 20 4e 75 6d 62 | 65 72 5d 20 33 20 28 23 |get Numb|er] 3 (#|
|00002f50| 24 20 2e 20 31 31 39 34 | 35 29 5d 29 0a 23 40 33 |$ . 1194|5)]).#@3|
|00002f60| 38 20 46 69 6e 64 20 74 | 68 65 20 70 72 20 6e 75 |8 Find t|he pr nu|
|00002f70| 6d 62 65 72 20 66 6f 72 | 20 74 68 65 20 70 72 20 |mber for| the pr |
|00002f80| 61 74 20 50 4f 53 1f 0a | 28 64 65 66 61 6c 69 61 |at POS..|(defalia|
|00002f90| 73 20 27 67 6e 61 74 73 | 2d 61 64 6d 69 6e 3a 3a |s 'gnats|-admin::|
|00002fa0| 70 72 2d 6e 75 6d 2d 61 | 74 20 23 5b 28 70 6f 73 |pr-num-a|t #[(pos|
|00002fb0| 29 20 22 c0 09 c2 c3 23 | 89 1c ad 84 c5 0c c3 5c |) "....#|.......\|
|00002fc0| 22 89 1e 06 ab 86 c7 0e | 06 21 aa 97 8a 09 62 88 |".......|.!....b.|
|00002fd0| c8 c9 21 ac 83 ca 20 88 | c8 cb 21 ad 85 cc cd ce |..!... .|..!.....|
|00002fe0| 21 21 29 2a 87 22 20 5b | 65 78 74 65 6e 74 2d 61 |!!)*." [|extent-a|
|00002ff0| 74 20 70 6f 73 20 6e 69 | 6c 20 70 72 20 65 78 74 |t pos ni|l pr ext|
|00003000| 20 65 78 74 65 6e 74 2d | 70 72 6f 70 65 72 74 79 | extent-|property|
|00003010| 20 70 72 2d 70 72 6f 70 | 20 67 6e 61 74 73 2d 61 | pr-prop| gnats-a|
|00003020| 64 6d 69 6e 3a 3a 70 72 | 2d 6e 75 6d 62 65 72 20 |dmin::pr|-number |
|00003030| 6c 6f 6f 6b 69 6e 67 2d | 61 74 20 22 5e 5c 5c 73 |looking-|at "^\\s|
|00003040| 2d 2a 5b 30 2d 39 5d 22 | 20 62 61 63 6b 77 61 72 |-*[0-9]"| backwar|
|00003050| 64 2d 70 61 72 61 67 72 | 61 70 68 20 22 5c 5c 73 |d-paragr|aph "\\s|
|00003060| 2d 2a 5b 30 2d 39 5d 2b | 5b 5e 30 2d 39 5d 22 20 |-*[0-9]+|[^0-9]" |
|00003070| 72 65 61 64 20 6d 61 74 | 63 68 2d 73 74 72 69 6e |read mat|ch-strin|
|00003080| 67 20 30 5d 20 35 20 28 | 23 24 20 2e 20 31 32 31 |g 0] 5 (|#$ . 121|
|00003090| 33 30 29 5d 29 0a 23 40 | 32 35 20 46 69 6e 64 20 |30)]).#@|25 Find |
|000030a0| 74 68 65 20 70 72 20 6e | 75 6d 62 65 72 65 64 20 |the pr n|umbered |
|000030b0| 4e 2e 1f 0a 28 64 65 66 | 61 6c 69 61 73 20 27 67 |N...(def|alias 'g|
|000030c0| 6e 61 74 73 2d 61 64 6d | 69 6e 3a 3a 70 72 2d 62 |nats-adm|in::pr-b|
|000030d0| 79 2d 6e 75 6d 62 65 72 | 20 23 5b 28 6e 75 6d 29 |y-number| #[(num)|
|000030e0| 20 22 08 09 53 9c 89 1a | ab 8a 09 c3 5c 6e 21 55 | "..S...|....\n!U|
|000030f0| ab 83 5c 6e aa b7 08 1c | c5 1e 06 c7 1e 08 c9 1e |..\n....|........|
|00003100| 5c 6e c7 1e 0b 0e 06 54 | 89 16 06 0c 47 57 ab 9b |\n.....T|....GW..|
|00003110| 0c 0e 06 48 16 08 09 c3 | 0e 08 21 55 ab 8a 0e 08 |...H....|..!U....|
|00003120| 16 0b c7 89 16 5c 6e aa | 81 c9 ac 5a 0e 0b 2d 29 |.....\n.|...Z..-)|
|00003130| 87 22 20 5b 70 72 2d 6c | 69 73 74 20 6e 75 6d 20 |." [pr-l|ist num |
|00003140| 70 72 20 67 6e 61 74 73 | 2d 61 64 6d 69 6e 3a 3a |pr gnats|-admin::|
|00003150| 70 72 2d 6e 75 6d 62 65 | 72 20 47 38 37 37 35 35 |pr-numbe|r G87755|
|00003160| 20 2d 31 20 47 38 37 37 | 35 36 20 6e 69 6c 20 70 | -1 G877|56 nil p|
|00003170| 72 78 20 74 20 47 38 37 | 37 35 37 20 47 38 37 37 |rx t G87|757 G877|
|00003180| 35 38 5d 20 34 20 28 23 | 24 20 2e 20 31 32 34 34 |58] 4 (#|$ . 1244|
|00003190| 33 29 5d 29 0a 23 40 34 | 30 20 53 65 74 20 75 70 |3)]).#@4|0 Set up|
|000031a0| 20 74 68 65 20 66 61 63 | 65 73 20 66 6f 72 20 67 | the fac|es for g|
|000031b0| 6e 61 74 73 20 61 64 6d | 69 6e 20 6d 6f 64 65 2e |nats adm|in mode.|
|000031c0| 1f 0a 28 64 65 66 61 6c | 69 61 73 20 27 67 6e 61 |..(defal|ias 'gna|
|000031d0| 74 73 2d 61 64 6d 69 6e | 3a 3a 73 65 74 75 70 2d |ts-admin|::setup-|
|000031e0| 66 61 63 65 73 20 23 5b | 6e 69 6c 20 22 c0 c1 5c |faces #[|nil "..\|
|000031f0| 6e 5c 22 88 c3 20 c4 73 | ab 85 c0 c5 5c 6e 5c 22 |n\".. .s|....\n\"|
|00003200| 88 0e 06 89 16 07 87 22 | 20 5b 6d 61 70 63 20 23 |......."| [mapc #|
|00003210| 5b 28 6c 29 20 22 c0 09 | 40 21 87 22 20 5b 6d 61 |[(l) "..|@!." [ma|
|00003220| 6b 65 2d 66 61 63 65 20 | 6c 5d 20 32 5d 20 67 6e |ke-face |l] 2] gn|
|00003230| 61 74 73 2d 61 64 6d 69 | 6e 3a 3a 66 61 63 65 2d |ats-admi|n::face-|
|00003240| 63 6f 6c 6f 72 20 64 65 | 76 69 63 65 2d 63 6c 61 |color de|vice-cla|
|00003250| 73 73 20 28 63 6f 6c 6f | 72 20 67 72 61 79 73 63 |ss (colo|r graysc|
|00003260| 61 6c 65 29 20 23 5b 28 | 6c 29 20 22 08 41 40 ab |ale) #[(|l) ".A@.|
|00003270| 88 c1 08 40 08 41 40 5c | 22 88 08 41 41 40 ad 88 |...@.A@\|"..AA@..|
|00003280| c2 08 40 08 41 41 40 5c | 22 87 22 20 5b 6c 20 73 |..@.AA@\|"." [l s|
|00003290| 65 74 2d 66 61 63 65 2d | 66 6f 72 65 67 72 6f 75 |et-face-|foregrou|
|000032a0| 6e 64 20 73 65 74 2d 66 | 61 63 65 2d 62 61 63 6b |nd set-f|ace-back|
|000032b0| 67 72 6f 75 6e 64 5d 20 | 33 5d 20 67 6e 61 74 73 |ground] |3] gnats|
|000032c0| 2d 61 64 6d 69 6e 3a 3a | 66 6f 6e 74 2d 6c 6f 63 |-admin::|font-loc|
|000032d0| 6b 2d 6b 65 79 77 6f 72 | 64 73 20 66 6f 6e 74 2d |k-keywor|ds font-|
|000032e0| 6c 6f 63 6b 2d 6b 65 79 | 77 6f 72 64 73 5d 20 33 |lock-key|words] 3|
|000032f0| 20 28 23 24 20 2e 20 31 | 32 36 39 38 29 5d 29 0a | (#$ . 1|2698)]).|
|00003300| 23 40 34 37 20 47 6c 79 | 70 68 20 75 73 65 64 20 |#@47 Gly|ph used |
|00003310| 74 6f 20 6d 61 72 6b 20 | 74 68 65 20 63 75 72 72 |to mark |the curr|
|00003320| 65 6e 74 20 50 52 20 69 | 6e 20 64 69 73 70 6c 61 |ent PR i|n displa|
|00003330| 79 2e 1f 0a 28 64 65 66 | 76 61 72 20 67 6e 61 74 |y...(def|var gnat|
|00003340| 73 2d 61 64 6d 69 6e 3a | 3a 70 72 2d 6d 61 72 6b |s-admin:|:pr-mark|
|00003350| 2d 67 6c 79 70 68 20 6e | 69 6c 20 28 23 24 20 2e |-glyph n|il (#$ .|
|00003360| 20 31 33 30 36 31 29 29 | 0a 23 40 33 36 20 46 69 | 13061))|.#@36 Fi|
|00003370| 6e 64 20 6f 72 20 63 72 | 65 61 74 65 20 67 6e 61 |nd or cr|eate gna|
|00003380| 74 73 20 61 64 6d 69 6e | 20 62 75 66 66 65 72 2e |ts admin| buffer.|
|00003390| 1f 0a 28 64 65 66 61 6c | 69 61 73 20 27 67 6e 61 |..(defal|ias 'gna|
|000033a0| 74 73 2d 61 64 6d 69 6e | 3a 3a 62 75 66 66 65 72 |ts-admin|::buffer|
|000033b0| 20 23 5b 6e 69 6c 20 22 | c0 c1 21 ae a4 c2 c1 21 | #[nil "|..!....!|
|000033c0| 89 1b 71 88 c4 c5 21 88 | c4 c6 21 88 c7 15 c8 16 |..q...!.|..!.....|
|000033d0| 06 c9 16 5c 6e c9 16 0b | cc cd 21 16 0e cf 20 88 |...\n...|..!... .|
|000033e0| 0b 29 87 22 20 5b 67 65 | 74 2d 62 75 66 66 65 72 |.)." [ge|t-buffer|
|000033f0| 20 22 2a 67 6e 61 74 73 | 2a 22 20 67 65 74 2d 62 | "*gnats|*" get-b|
|00003400| 75 66 66 65 72 2d 63 72 | 65 61 74 65 20 62 75 66 |uffer-cr|eate buf|
|00003410| 20 6d 61 6b 65 2d 6c 6f | 63 61 6c 2d 76 61 72 69 | make-lo|cal-vari|
|00003420| 61 62 6c 65 20 70 61 72 | 61 67 72 61 70 68 2d 73 |able par|agraph-s|
|00003430| 74 61 72 74 20 70 61 72 | 61 67 72 61 70 68 2d 73 |tart par|agraph-s|
|00003440| 65 70 61 72 61 74 65 20 | 22 5e 5c 5c 28 5c 5c 53 |eparate |"^\\(\\S|
|00003450| 2d 5c 5c 7c 5b 20 09 5c | 6e 5d 2a 24 5c 5c 29 22 |-\\|[ .\|n]*$\\)"|
|00003460| 20 22 5e 5b 20 09 5c 6e | 5d 2a 24 22 20 74 20 62 | "^[ .\n|]*$" t b|
|00003470| 75 66 66 65 72 2d 72 65 | 61 64 2d 6f 6e 6c 79 20 |uffer-re|ad-only |
|00003480| 62 75 66 66 65 72 2d 75 | 6e 64 6f 2d 6c 69 73 74 |buffer-u|ndo-list|
|00003490| 20 6d 61 6b 65 2d 70 69 | 78 6d 61 70 20 22 74 61 | make-pi|xmap "ta|
|000034a0| 72 67 65 74 22 20 67 6e | 61 74 73 2d 61 64 6d 69 |rget" gn|ats-admi|
|000034b0| 6e 3a 3a 70 72 2d 6d 61 | 72 6b 2d 67 6c 79 70 68 |n::pr-ma|rk-glyph|
|000034c0| 20 67 6e 61 74 73 2d 61 | 64 6d 69 6e 3a 3a 73 65 | gnats-a|dmin::se|
|000034d0| 74 75 70 2d 66 61 63 65 | 73 5d 20 33 20 28 23 24 |tup-face|s] 3 (#$|
|000034e0| 20 2e 20 31 33 31 36 36 | 29 5d 29 0a 23 40 38 35 | . 13166|)]).#@85|
|000034f0| 20 49 66 20 50 52 2d 4f | 52 2d 4e 55 4d 20 69 73 | If PR-O|R-NUM is|
|00003500| 20 61 20 70 72 2c 20 72 | 65 74 75 72 6e 20 69 74 | a pr, r|eturn it|
|00003510| 3b 20 69 66 20 69 74 27 | 73 20 61 20 6e 75 6d 62 |; if it'|s a numb|
|00003520| 65 72 2c 20 0a 72 65 74 | 75 72 6e 20 74 68 65 20 |er, .ret|urn the |
|00003530| 70 72 20 77 69 74 68 20 | 74 68 61 74 20 6e 75 6d |pr with |that num|
|00003540| 62 65 72 2e 1f 0a 28 64 | 65 66 61 6c 69 61 73 20 |ber...(d|efalias |
|00003550| 27 67 6e 61 74 73 2d 61 | 64 6d 69 6e 3a 70 72 20 |'gnats-a|dmin:pr |
|00003560| 23 5b 28 70 72 2d 6f 72 | 2d 6e 75 6d 29 20 22 08 |#[(pr-or|-num) ".|
|00003570| a7 ab 84 c1 08 21 87 08 | 3a ab 82 08 87 c2 c3 08 |.....!..|:.......|
|00003580| 5c 22 87 22 20 5b 70 72 | 2d 6f 72 2d 6e 75 6d 20 |\"." [pr|-or-num |
|00003590| 67 6e 61 74 73 2d 61 64 | 6d 69 6e 3a 3a 70 72 2d |gnats-ad|min::pr-|
|000035a0| 62 79 2d 6e 75 6d 62 65 | 72 20 65 72 72 6f 72 20 |by-numbe|r error |
|000035b0| 22 4e 6f 74 20 61 20 76 | 61 6c 69 64 20 50 52 3a |"Not a v|alid PR:|
|000035c0| 20 25 73 22 5d 20 33 20 | 28 23 24 20 2e 20 31 33 | %s"] 3 |(#$ . 13|
|000035d0| 35 35 33 29 5d 29 0a 23 | 40 31 36 20 50 52 20 61 |553)]).#|@16 PR a|
|000035e0| 74 20 50 4f 53 49 54 49 | 4f 4e 1f 0a 28 64 65 66 |t POSITI|ON..(def|
|000035f0| 61 6c 69 61 73 20 27 67 | 6e 61 74 73 2d 61 64 6d |alias 'g|nats-adm|
|00003600| 69 6e 3a 3a 70 72 2d 61 | 74 20 23 5b 28 70 6f 73 |in::pr-a|t #[(pos|
|00003610| 29 20 22 c0 09 c2 c3 23 | 89 1c ad 84 c5 0c c3 5c |) "....#|.......\|
|00003620| 22 29 ae 83 c6 09 21 87 | 22 20 5b 65 78 74 65 6e |")....!.|" [exten|
|00003630| 74 2d 61 74 20 70 6f 73 | 20 6e 69 6c 20 70 72 20 |t-at pos| nil pr |
|00003640| 65 78 74 20 65 78 74 65 | 6e 74 2d 70 72 6f 70 65 |ext exte|nt-prope|
|00003650| 72 74 79 20 67 6e 61 74 | 73 2d 61 64 6d 69 6e 3a |rty gnat|s-admin:|
|00003660| 3a 70 72 2d 6e 75 6d 2d | 61 74 5d 20 35 20 28 23 |:pr-num-|at] 5 (#|
|00003670| 24 20 2e 20 31 33 37 38 | 38 29 5d 29 0a 28 64 65 |$ . 1378|8)]).(de|
|00003680| 66 61 6c 69 61 73 20 27 | 67 6e 61 74 73 2d 61 64 |falias '|gnats-ad|
|00003690| 6d 69 6e 3a 70 72 2d 65 | 64 69 74 20 23 5b 6e 69 |min:pr-e|dit #[ni|
|000036a0| 6c 20 22 c0 60 21 19 c2 | 09 21 1b c4 c5 0b 5c 22 |l ".`!..|.!....\"|
|000036b0| 1e 06 c7 0e 06 21 88 09 | 0e 08 42 89 16 08 2b 87 |.....!..|..B...+.|
|000036c0| 22 20 5b 67 6e 61 74 73 | 2d 61 64 6d 69 6e 3a 3a |" [gnats|-admin::|
|000036d0| 70 72 2d 61 74 20 70 72 | 20 67 6e 61 74 73 2d 61 |pr-at pr| gnats-a|
|000036e0| 64 6d 69 6e 3a 3a 70 72 | 2d 6e 75 6d 62 65 72 20 |dmin::pr|-number |
|000036f0| 6e 75 6d 20 66 6f 72 6d | 61 74 20 22 25 64 22 20 |num form|at "%d" |
|00003700| 6e 75 6d 2d 73 74 72 20 | 70 72 2d 65 64 69 74 20 |num-str |pr-edit |
|00003710| 67 6e 61 74 73 2d 61 64 | 6d 69 6e 3a 3a 64 69 72 |gnats-ad|min::dir|
|00003720| 74 79 2d 6c 69 73 74 5d | 20 33 20 6e 69 6c 20 6e |ty-list]| 3 nil n|
|00003730| 69 6c 5d 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |il]).(de|falias '|
|00003740| 67 6e 61 74 73 2d 61 64 | 6d 69 6e 3a 70 72 2d 76 |gnats-ad|min:pr-v|
|00003750| 69 65 77 20 23 5b 6e 69 | 6c 20 22 c0 c1 c2 c3 60 |iew #[ni|l "....`|
|00003760| 21 5c 22 21 87 22 20 5b | 70 72 2d 76 69 65 77 20 |!\"!." [|pr-view |
|00003770| 66 6f 72 6d 61 74 20 22 | 25 64 22 20 67 6e 61 74 |format "|%d" gnat|
|00003780| 73 2d 61 64 6d 69 6e 3a | 3a 70 72 2d 6e 75 6d 2d |s-admin:|:pr-num-|
|00003790| 61 74 5d 20 35 20 6e 69 | 6c 20 6e 69 6c 5d 29 0a |at] 5 ni|l nil]).|
|000037a0| 28 64 65 66 61 6c 69 61 | 73 20 27 67 6e 61 74 73 |(defalia|s 'gnats|
|000037b0| 2d 61 64 6d 69 6e 3a 70 | 72 2d 73 79 6e 6f 70 73 |-admin:p|r-synops|
|000037c0| 69 73 20 23 5b 6e 69 6c | 20 22 c0 60 21 19 c2 09 |is #[nil| ".`!...|
|000037d0| c3 5c 22 1c c5 c6 0c 5c | 22 2a 87 22 20 5b 67 6e |.\"....\|"*." [gn|
|000037e0| 61 74 73 2d 61 64 6d 69 | 6e 3a 3a 70 72 2d 61 74 |ats-admi|n::pr-at|
|000037f0| 20 70 72 20 67 6e 61 74 | 73 2d 61 64 6d 69 6e 3a | pr gnat|s-admin:|
|00003800| 3a 70 72 2d 67 65 74 20 | 53 79 6e 6f 70 73 69 73 |:pr-get |Synopsis|
|00003810| 20 73 79 6e 20 6d 65 73 | 73 61 67 65 20 22 53 79 | syn mes|sage "Sy|
|00003820| 6e 6f 70 73 69 73 3a 20 | 25 73 22 5d 20 33 20 6e |nopsis: |%s"] 3 n|
|00003830| 69 6c 20 6e 69 6c 5d 29 | 0a 28 64 65 66 61 6c 69 |il nil])|.(defali|
|00003840| 61 73 20 27 67 6e 61 74 | 73 2d 61 64 6d 69 6e 3a |as 'gnat|s-admin:|
|00003850| 70 72 2d 6f 72 69 67 69 | 6e 61 74 6f 72 20 23 5b |pr-origi|nator #[|
|00003860| 6e 69 6c 20 22 c0 60 21 | 19 c2 09 c3 5c 22 1c c5 |nil ".`!|....\"..|
|00003870| c6 0c 5c 22 2a 87 22 20 | 5b 67 6e 61 74 73 2d 61 |..\"*." |[gnats-a|
|00003880| 64 6d 69 6e 3a 3a 70 72 | 2d 61 74 20 70 72 20 67 |dmin::pr|-at pr g|
|00003890| 6e 61 74 73 2d 61 64 6d | 69 6e 3a 3a 70 72 2d 67 |nats-adm|in::pr-g|
|000038a0| 65 74 20 4f 72 69 67 69 | 6e 61 74 6f 72 20 73 79 |et Origi|nator sy|
|000038b0| 6e 20 6d 65 73 73 61 67 | 65 20 22 4f 72 69 67 69 |n messag|e "Origi|
|000038c0| 6e 61 74 6f 72 3a 20 25 | 73 22 5d 20 33 20 6e 69 |nator: %|s"] 3 ni|
|000038d0| 6c 20 6e 69 6c 5d 29 0a | 23 40 33 38 20 53 68 6f |l nil]).|#@38 Sho|
|000038e0| 77 20 61 6e 79 20 70 72 | 20 66 69 65 6c 64 20 46 |w any pr| field F|
|000038f0| 4c 44 20 6f 66 20 63 75 | 72 72 65 6e 74 20 70 72 |LD of cu|rrent pr|
|00003900| 2e 1f 0a 28 64 65 66 61 | 6c 69 61 73 20 27 67 6e |...(defa|lias 'gn|
|00003910| 61 74 73 2d 61 64 6d 69 | 6e 3a 70 72 2d 66 69 65 |ats-admi|n:pr-fie|
|00003920| 6c 64 20 23 5b 28 66 6c | 64 29 20 22 c0 60 21 19 |ld #[(fl|d) ".`!.|
|00003930| c2 09 c3 0c 21 5c 22 1d | c6 c7 0c 0d 23 2a 87 22 |....!\".|....#*."|
|00003940| 20 5b 67 6e 61 74 73 2d | 61 64 6d 69 6e 3a 3a 70 | [gnats-|admin::p|
|00003950| 72 2d 61 74 20 70 72 20 | 67 6e 61 74 73 2d 61 64 |r-at pr |gnats-ad|
|00003960| 6d 69 6e 3a 3a 70 72 2d | 67 65 74 20 69 6e 74 65 |min::pr-|get inte|
|00003970| 72 6e 20 66 6c 64 20 76 | 61 6c 20 6d 65 73 73 61 |rn fld v|al messa|
|00003980| 67 65 20 22 25 73 3a 20 | 25 73 22 5d 20 34 20 28 |ge "%s: |%s"] 4 (|
|00003990| 23 24 20 2e 20 31 34 35 | 35 37 29 20 28 6c 69 73 |#$ . 145|57) (lis|
|000039a0| 74 20 28 63 6f 6d 70 6c | 65 74 69 6e 67 2d 72 65 |t (compl|eting-re|
|000039b0| 61 64 20 22 46 69 65 6c | 64 3a 20 22 20 67 6e 61 |ad "Fiel|d: " gna|
|000039c0| 74 73 2d 61 64 6d 69 6e | 3a 3a 70 72 2d 66 69 65 |ts-admin|::pr-fie|
|000039d0| 6c 64 2d 61 6c 69 73 74 | 20 6e 69 6c 20 74 29 29 |ld-alist| nil t))|
|000039e0| 5d 29 0a 23 40 31 32 20 | 43 75 72 72 65 6e 74 20 |]).#@12 |Current |
|000039f0| 70 72 1f 0a 28 64 65 66 | 76 61 72 20 67 6e 61 74 |pr..(def|var gnat|
|00003a00| 73 2d 61 64 6d 69 6e 3a | 3a 63 75 72 72 65 6e 74 |s-admin:|:current|
|00003a10| 2d 70 72 20 6e 69 6c 20 | 28 23 24 20 2e 20 31 34 |-pr nil |(#$ . 14|
|00003a20| 38 32 34 29 29 0a 23 40 | 35 35 20 48 69 6c 69 67 |824)).#@|55 Hilig|
|00003a30| 68 74 20 74 68 65 20 63 | 75 72 72 65 6e 74 20 50 |ht the c|urrent P|
|00003a40| 52 20 2d 2d 20 6d 61 79 | 20 75 6e 68 69 6c 69 67 |R -- may| unhilig|
|00003a50| 68 74 20 74 68 65 20 70 | 72 65 76 69 6f 75 73 2e |ht the p|revious.|
|00003a60| 1f 0a 28 64 65 66 61 6c | 69 61 73 20 27 67 6e 61 |..(defal|ias 'gna|
|00003a70| 74 73 2d 61 64 6d 69 6e | 3a 3a 68 69 67 68 6c 69 |ts-admin|::highli|
|00003a80| 67 68 74 20 23 5b 28 70 | 72 29 20 22 c0 c1 c2 8f |ght #[(p|r) "....|
|00003a90| 87 22 20 5b 65 72 72 20 | 28 62 79 74 65 2d 63 6f |." [err |(byte-co|
|00003aa0| 64 65 20 22 08 ab 87 c1 | c2 08 21 c3 5c 22 88 c1 |de "....|..!.\"..|
|00003ab0| c2 0c 21 c5 5c 22 88 0c | 89 10 87 22 20 5b 67 6e |..!.\"..|..." [gn|
|00003ac0| 61 74 73 2d 61 64 6d 69 | 6e 3a 3a 63 75 72 72 65 |ats-admi|n::curre|
|00003ad0| 6e 74 2d 70 72 20 68 69 | 67 68 6c 69 67 68 74 2d |nt-pr hi|ghlight-|
|00003ae0| 65 78 74 65 6e 74 20 67 | 6e 61 74 73 2d 61 64 6d |extent g|nats-adm|
|00003af0| 69 6e 3a 3a 70 72 2d 62 | 75 66 66 65 72 2d 65 78 |in::pr-b|uffer-ex|
|00003b00| 74 65 6e 74 20 6e 69 6c | 20 70 72 20 74 5d 20 33 |tent nil| pr t] 3|
|00003b10| 29 20 28 28 65 72 72 6f | 72 20 28 62 79 74 65 2d |) ((erro|r (byte-|
|00003b20| 63 6f 64 65 20 22 c0 89 | 11 87 22 20 5b 6e 69 6c |code "..|.." [nil|
|00003b30| 20 67 6e 61 74 73 2d 61 | 64 6d 69 6e 3a 3a 63 75 | gnats-a|dmin::cu|
|00003b40| 72 72 65 6e 74 2d 70 72 | 5d 20 32 29 29 29 5d 20 |rrent-pr|] 2)))] |
|00003b50| 33 20 28 23 24 20 2e 20 | 31 34 38 39 31 29 5d 29 |3 (#$ . |14891)])|
|00003b60| 0a 23 40 32 37 20 48 69 | 67 68 6c 69 67 68 74 20 |.#@27 Hi|ghlight |
|00003b70| 74 68 65 20 70 72 20 61 | 74 20 70 6f 69 6e 74 1f |the pr a|t point.|
|00003b80| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 67 6e 61 74 |.(defali|as 'gnat|
|00003b90| 73 2d 61 64 6d 69 6e 3a | 3a 68 69 67 68 6c 69 67 |s-admin:|:highlig|
|00003ba0| 68 74 2d 70 6f 69 6e 74 | 20 23 5b 6e 69 6c 20 22 |ht-point| #[nil "|
|00003bb0| c0 20 ac 84 c1 c2 21 88 | c3 c4 60 21 21 87 22 20 |. ....!.|..`!!." |
|00003bc0| 5b 70 6f 73 2d 76 69 73 | 69 62 6c 65 2d 69 6e 2d |[pos-vis|ible-in-|
|00003bd0| 77 69 6e 64 6f 77 2d 70 | 20 72 65 63 65 6e 74 65 |window-p| recente|
|00003be0| 72 20 28 74 29 20 67 6e | 61 74 73 2d 61 64 6d 69 |r (t) gn|ats-admi|
|00003bf0| 6e 3a 3a 68 69 67 68 6c | 69 67 68 74 20 67 6e 61 |n::highl|ight gna|
|00003c00| 74 73 2d 61 64 6d 69 6e | 3a 3a 70 72 2d 61 74 5d |ts-admin|::pr-at]|
|00003c10| 20 33 20 28 23 24 20 2e | 20 31 35 32 30 36 29 5d | 3 (#$ .| 15206)]|
|00003c20| 29 0a 23 40 39 20 4e 65 | 78 74 20 70 72 1f 0a 28 |).#@9 Ne|xt pr..(|
|00003c30| 64 65 66 61 6c 69 61 73 | 20 27 67 6e 61 74 73 2d |defalias| 'gnats-|
|00003c40| 61 64 6d 69 6e 3a 6e 65 | 78 74 20 23 5b 6e 69 6c |admin:ne|xt #[nil|
|00003c50| 20 22 c0 20 88 c1 20 87 | 22 20 5b 66 6f 72 77 61 | ". .. .|" [forwa|
|00003c60| 72 64 2d 70 61 72 61 67 | 72 61 70 68 20 67 6e 61 |rd-parag|raph gna|
|00003c70| 74 73 2d 61 64 6d 69 6e | 3a 3a 68 69 67 68 6c 69 |ts-admin|::highli|
|00003c80| 67 68 74 2d 70 6f 69 6e | 74 5d 20 31 20 28 23 24 |ght-poin|t] 1 (#$|
|00003c90| 20 2e 20 31 35 33 39 38 | 29 20 6e 69 6c 5d 29 0a | . 15398|) nil]).|
|00003ca0| 23 40 31 30 20 50 72 65 | 76 20 70 72 2e 1f 0a 28 |#@10 Pre|v pr...(|
|00003cb0| 64 65 66 61 6c 69 61 73 | 20 27 67 6e 61 74 73 2d |defalias| 'gnats-|
|00003cc0| 61 64 6d 69 6e 3a 70 72 | 65 76 20 23 5b 6e 69 6c |admin:pr|ev #[nil|
|00003cd0| 20 22 c0 20 88 c1 20 87 | 22 20 5b 62 61 63 6b 77 | ". .. .|" [backw|
|00003ce0| 61 72 64 2d 70 61 72 61 | 67 72 61 70 68 20 67 6e |ard-para|graph gn|
|00003cf0| 61 74 73 2d 61 64 6d 69 | 6e 3a 3a 68 69 67 68 6c |ats-admi|n::highl|
|00003d00| 69 67 68 74 2d 70 6f 69 | 6e 74 5d 20 31 20 28 23 |ight-poi|nt] 1 (#|
|00003d10| 24 20 2e 20 31 35 35 32 | 35 29 20 6e 69 6c 5d 29 |$ . 1552|5) nil])|
|00003d20| 0a 23 40 32 33 20 41 63 | 74 69 76 61 74 65 20 70 |.#@23 Ac|tivate p|
|00003d30| 72 20 61 74 20 70 6f 69 | 6e 74 2e 1f 0a 28 64 65 |r at poi|nt...(de|
|00003d40| 66 61 6c 69 61 73 20 27 | 67 6e 61 74 73 2d 61 64 |falias '|gnats-ad|
|00003d50| 6d 69 6e 3a 74 68 69 73 | 20 23 5b 6e 69 6c 20 22 |min:this| #[nil "|
|00003d60| c0 7f 88 c1 20 88 c2 20 | 87 22 20 5b 6e 69 6c 20 |.... .. |." [nil |
|00003d70| 62 61 63 6b 77 61 72 64 | 2d 70 61 72 61 67 72 61 |backward|-paragra|
|00003d80| 70 68 20 67 6e 61 74 73 | 2d 61 64 6d 69 6e 3a 3a |ph gnats|-admin::|
|00003d90| 68 69 67 68 6c 69 67 68 | 74 2d 70 6f 69 6e 74 5d |highligh|t-point]|
|00003da0| 20 31 20 28 23 24 20 2e | 20 31 35 36 35 34 29 20 | 1 (#$ .| 15654) |
|00003db0| 6e 69 6c 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |nil]).(d|efalias |
|00003dc0| 27 67 6e 61 74 73 2d 61 | 64 6d 69 6e 3a 6d 6f 75 |'gnats-a|dmin:mou|
|00003dd0| 73 65 2d 73 65 74 20 23 | 5b 28 65 76 29 20 22 c0 |se-set #|[(ev) ".|
|00003de0| 09 21 88 c2 20 87 22 20 | 5b 6d 6f 75 73 65 2d 73 |.!.. ." |[mouse-s|
|00003df0| 65 74 2d 70 6f 69 6e 74 | 20 65 76 20 67 6e 61 74 |et-point| ev gnat|
|00003e00| 73 2d 61 64 6d 69 6e 3a | 3a 68 69 67 68 6c 69 67 |s-admin:|:highlig|
|00003e10| 68 74 2d 70 6f 69 6e 74 | 5d 20 32 20 6e 69 6c 20 |ht-point|] 2 nil |
|00003e20| 22 65 22 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |"e"]).(d|efalias |
|00003e30| 27 67 6e 61 74 73 2d 61 | 64 6d 69 6e 3a 6d 6f 75 |'gnats-a|dmin:mou|
|00003e40| 73 65 2d 73 79 6e 6f 70 | 73 69 73 20 23 5b 28 65 |se-synop|sis #[(e|
|00003e50| 76 29 20 22 c0 09 21 88 | c2 20 87 22 20 5b 67 6e |v) "..!.|. ." [gn|
|00003e60| 61 74 73 2d 61 64 6d 69 | 6e 3a 6d 6f 75 73 65 2d |ats-admi|n:mouse-|
|00003e70| 73 65 74 20 65 76 20 67 | 6e 61 74 73 2d 61 64 6d |set ev g|nats-adm|
|00003e80| 69 6e 3a 70 72 2d 73 79 | 6e 6f 70 73 69 73 5d 20 |in:pr-sy|nopsis] |
|00003e90| 32 20 6e 69 6c 20 22 65 | 22 5d 29 0a 28 64 65 66 |2 nil "e|"]).(def|
|00003ea0| 61 6c 69 61 73 20 27 67 | 6e 61 74 73 2d 61 64 6d |alias 'g|nats-adm|
|00003eb0| 69 6e 3a 6d 6f 75 73 65 | 2d 6d 65 6e 75 20 23 5b |in:mouse|-menu #[|
|00003ec0| 28 65 76 29 20 22 c0 09 | 21 88 c2 20 87 22 20 5b |(ev) "..|!.. ." [|
|00003ed0| 67 6e 61 74 73 2d 61 64 | 6d 69 6e 3a 6d 6f 75 73 |gnats-ad|min:mous|
|00003ee0| 65 2d 73 65 74 20 65 76 | 20 70 6f 70 75 70 2d 6d |e-set ev| popup-m|
|00003ef0| 6f 64 65 2d 6d 65 6e 75 | 5d 20 32 20 6e 69 6c 20 |ode-menu|] 2 nil |
|00003f00| 22 65 22 5d 29 0a 23 40 | 35 31 20 52 65 72 65 61 |"e"]).#@|51 Rerea|
|00003f10| 64 20 61 6e 64 20 72 65 | 66 72 65 73 68 20 74 68 |d and re|fresh th|
|00003f20| 65 20 64 69 73 70 6c 61 | 79 20 6f 66 20 74 68 65 |e displa|y of the|
|00003f30| 20 63 75 72 72 65 6e 74 | 20 50 52 2e 1f 0a 28 64 | current| PR...(d|
|00003f40| 65 66 61 6c 69 61 73 20 | 27 67 6e 61 74 73 2d 61 |efalias |'gnats-a|
|00003f50| 64 6d 69 6e 3a 72 65 66 | 72 65 73 68 2d 74 68 69 |dmin:ref|resh-thi|
|00003f60| 73 2d 70 72 20 23 5b 6e | 69 6c 20 22 c0 60 21 19 |s-pr #[n|il ".`!.|
|00003f70| c2 1b c4 09 21 1d c6 09 | 21 1e 07 0d 62 88 8a c8 |....!...|!...b...|
|00003f80| 09 21 88 c9 09 21 88 ca | 09 70 5c 22 88 cb 1e 0c |.!...!..|.p\"....|
|00003f90| cd 0d 0e 07 ce 23 88 2a | cf 20 2c 87 22 20 5b 67 |.....#.*|. ,." [g|
|00003fa0| 6e 61 74 73 2d 61 64 6d | 69 6e 3a 3a 70 72 2d 61 |nats-adm|in::pr-a|
|00003fb0| 74 20 70 72 20 6e 69 6c | 20 62 75 66 66 65 72 2d |t pr nil| buffer-|
|00003fc0| 72 65 61 64 2d 6f 6e 6c | 79 20 67 6e 61 74 73 2d |read-onl|y gnats-|
|00003fd0| 61 64 6d 69 6e 3a 3a 70 | 72 2d 62 75 66 66 65 72 |admin::p|r-buffer|
|00003fe0| 2d 62 65 67 69 6e 20 62 | 20 67 6e 61 74 73 2d 61 |-begin b| gnats-a|
|00003ff0| 64 6d 69 6e 3a 3a 70 72 | 2d 62 75 66 66 65 72 2d |dmin::pr|-buffer-|
|00004000| 65 6e 64 20 65 20 67 6e | 61 74 73 2d 61 64 6d 69 |end e gn|ats-admi|
|00004010| 6e 3a 3a 70 72 2d 62 75 | 66 66 65 72 2d 64 65 6c |n::pr-bu|ffer-del|
|00004020| 65 74 65 20 67 6e 61 74 | 73 2d 61 64 6d 69 6e 3a |ete gnat|s-admin:|
|00004030| 3a 70 72 2d 72 65 72 65 | 61 64 20 67 6e 61 74 73 |:pr-rere|ad gnats|
|00004040| 2d 61 64 6d 69 6e 3a 3a | 64 69 73 70 6c 61 79 2d |-admin::|display-|
|00004050| 70 72 20 74 20 66 6f 6e | 74 2d 6c 6f 63 6b 2d 6d |pr t fon|t-lock-m|
|00004060| 6f 64 65 20 66 6f 6e 74 | 2d 6c 6f 63 6b 2d 61 66 |ode font|-lock-af|
|00004070| 74 65 72 2d 63 68 61 6e | 67 65 2d 66 75 6e 63 74 |ter-chan|ge-funct|
|00004080| 69 6f 6e 20 31 20 67 6e | 61 74 73 2d 61 64 6d 69 |ion 1 gn|ats-admi|
|00004090| 6e 3a 3a 68 69 67 68 6c | 69 67 68 74 2d 70 6f 69 |n::highl|ight-poi|
|000040a0| 6e 74 5d 20 34 20 28 23 | 24 20 2e 20 31 36 31 33 |nt] 4 (#|$ . 1613|
|000040b0| 39 29 20 6e 69 6c 5d 29 | 0a 23 40 33 34 20 4d 61 |9) nil])|.#@34 Ma|
|000040c0| 6b 65 20 70 72 20 6e 75 | 6d 62 65 72 20 4e 20 74 |ke pr nu|mber N t|
|000040d0| 68 65 20 63 75 72 72 65 | 6e 74 20 70 72 2e 1f 0a |he curre|nt pr...|
|000040e0| 28 64 65 66 61 6c 69 61 | 73 20 27 67 6e 61 74 73 |(defalia|s 'gnats|
|000040f0| 2d 61 64 6d 69 6e 3a 67 | 6f 74 6f 2d 70 72 20 23 |-admin:g|oto-pr #|
|00004100| 5b 28 6e 29 20 22 c0 09 | 21 62 88 c2 20 87 22 20 |[(n) "..|!b.. ." |
|00004110| 5b 67 6e 61 74 73 2d 61 | 64 6d 69 6e 3a 3a 70 72 |[gnats-a|dmin::pr|
|00004120| 2d 6e 2d 70 6f 73 20 6e | 20 67 6e 61 74 73 2d 61 |-n-pos n| gnats-a|
|00004130| 64 6d 69 6e 3a 3a 68 69 | 67 68 6c 69 67 68 74 2d |dmin::hi|ghlight-|
|00004140| 70 6f 69 6e 74 5d 20 32 | 20 28 23 24 20 2e 20 31 |point] 2| (#$ . 1|
|00004150| 36 35 37 34 29 20 22 6e | 50 52 3a 20 22 5d 29 0a |6574) "n|PR: "]).|
|00004160| 23 40 36 32 20 46 69 6e | 64 20 74 68 65 20 62 75 |#@62 Fin|d the bu|
|00004170| 66 66 65 72 20 70 6f 73 | 69 74 69 6f 6e 20 6f 66 |ffer pos|ition of|
|00004180| 20 70 72 20 6e 75 6d 62 | 65 72 65 64 20 4e 20 69 | pr numb|ered N i|
|00004190| 6e 20 63 75 72 72 65 6e | 74 20 62 75 66 66 65 72 |n curren|t buffer|
|000041a0| 2e 1f 0a 28 64 65 66 61 | 6c 69 61 73 20 27 67 6e |...(defa|lias 'gn|
|000041b0| 61 74 73 2d 61 64 6d 69 | 6e 3a 3a 70 72 2d 6e 2d |ats-admi|n::pr-n-|
|000041c0| 70 6f 73 20 23 5b 28 6e | 29 20 22 8a 65 62 88 c0 |pos #[(n|) ".eb..|
|000041d0| c1 5c 6e 5c 22 1b c4 0b | 21 88 60 2a 87 22 20 5b |.\n\"...|!.`*." [|
|000041e0| 66 6f 72 6d 61 74 20 22 | 5e 25 73 5c 5c 73 2d 22 |format "|^%s\\s-"|
|000041f0| 20 6e 20 72 65 20 72 65 | 2d 73 65 61 72 63 68 2d | n re re|-search-|
|00004200| 66 6f 72 77 61 72 64 5d | 20 33 20 28 23 24 20 2e |forward]| 3 (#$ .|
|00004210| 20 31 36 37 34 31 29 5d | 29 0a 23 40 33 31 20 44 | 16741)]|).#@31 D|
|00004220| 65 6c 65 74 65 20 74 68 | 65 20 64 69 73 70 6c 61 |elete th|e displa|
|00004230| 79 20 6f 66 20 74 68 65 | 20 50 52 2e 1f 0a 28 64 |y of the| PR...(d|
|00004240| 65 66 61 6c 69 61 73 20 | 27 67 6e 61 74 73 2d 61 |efalias |'gnats-a|
|00004250| 64 6d 69 6e 3a 3a 70 72 | 2d 62 75 66 66 65 72 2d |dmin::pr|-buffer-|
|00004260| 64 65 6c 65 74 65 20 23 | 5b 28 70 72 29 20 22 c0 |delete #|[(pr) ".|
|00004270| 09 21 1a c3 09 21 1c c5 | 09 21 1e 06 c7 09 21 1e |.!...!..|.!....!.|
|00004280| 08 0e 06 71 88 c9 1e 5c | 6e 5c 6e 0c 7c 88 cb 0e |...q...\|n\n.|...|
|00004290| 08 21 ad 84 cc 0e 08 21 | 2d 87 22 20 5b 67 6e 61 |.!.....!|-." [gna|
|000042a0| 74 73 2d 61 64 6d 69 6e | 3a 3a 70 72 2d 62 75 66 |ts-admin|::pr-buf|
|000042b0| 66 65 72 2d 62 65 67 69 | 6e 20 70 72 20 62 20 67 |fer-begi|n pr b g|
|000042c0| 6e 61 74 73 2d 61 64 6d | 69 6e 3a 3a 70 72 2d 62 |nats-adm|in::pr-b|
|000042d0| 75 66 66 65 72 2d 65 6e | 64 20 65 20 67 6e 61 74 |uffer-en|d e gnat|
|000042e0| 73 2d 61 64 6d 69 6e 3a | 3a 70 72 2d 62 75 66 66 |s-admin:|:pr-buff|
|000042f0| 65 72 20 6d 62 75 66 20 | 67 6e 61 74 73 2d 61 64 |er mbuf |gnats-ad|
|00004300| 6d 69 6e 3a 3a 70 72 2d | 62 75 66 66 65 72 2d 65 |min::pr-|buffer-e|
|00004310| 78 74 65 6e 74 20 70 72 | 2d 65 78 74 20 6e 69 6c |xtent pr|-ext nil|
|00004320| 20 62 75 66 66 65 72 2d | 72 65 61 64 2d 6f 6e 6c | buffer-|read-onl|
|00004330| 79 20 65 78 74 65 6e 74 | 70 20 64 65 6c 65 74 65 |y extent|p delete|
|00004340| 2d 65 78 74 65 6e 74 5d | 20 32 20 28 23 24 20 2e |-extent]| 2 (#$ .|
|00004350| 20 31 36 39 32 37 29 5d | 29 0a 23 40 33 31 20 51 | 16927)]|).#@31 Q|
|00004360| 75 69 74 20 6f 75 74 20 | 6f 66 20 67 6e 61 74 73 |uit out |of gnats|
|00004370| 20 61 64 6d 69 6e 20 6d | 6f 64 65 2e 1f 0a 28 64 | admin m|ode...(d|
|00004380| 65 66 61 6c 69 61 73 20 | 27 67 6e 61 74 73 2d 61 |efalias |'gnats-a|
|00004390| 64 6d 69 6e 3a 71 75 69 | 74 20 23 5b 6e 69 6c 20 |dmin:qui|t #[nil |
|000043a0| 22 c0 c1 21 ab 84 c2 c1 | 21 88 c2 c3 21 87 22 20 |"..!....|!...!." |
|000043b0| 5b 67 65 74 2d 62 75 66 | 66 65 72 20 22 2a 2a 67 |[get-buf|fer "**g|
|000043c0| 6e 61 74 73 2d 71 75 65 | 72 79 2a 22 20 6b 69 6c |nats-que|ry*" kil|
|000043d0| 6c 2d 62 75 66 66 65 72 | 20 6e 69 6c 5d 20 32 20 |l-buffer| nil] 2 |
|000043e0| 28 23 24 20 2e 20 31 37 | 32 34 37 29 20 6e 69 6c |(#$ . 17|247) nil|
|000043f0| 5d 29 0a 23 40 33 31 20 | 4b 65 79 20 6d 61 70 20 |]).#@31 |Key map |
|00004400| 66 6f 72 20 67 6e 61 74 | 73 20 61 64 6d 69 6e 20 |for gnat|s admin |
|00004410| 6d 6f 64 65 2e 1f 0a 28 | 64 65 66 76 61 72 20 67 |mode...(|defvar g|
|00004420| 6e 61 74 73 2d 61 64 6d | 69 6e 2d 6d 6f 64 65 2d |nats-adm|in-mode-|
|00004430| 6d 61 70 20 6e 69 6c 20 | 28 23 24 20 2e 20 31 37 |map nil |(#$ . 17|
|00004440| 34 30 30 29 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |400)).(d|efalias |
|00004450| 27 67 6e 61 74 73 2d 61 | 64 6d 69 6e 3a 3a 73 65 |'gnats-a|dmin::se|
|00004460| 74 75 70 2d 6b 65 79 6d | 61 70 20 23 5b 6e 69 6c |tup-keym|ap #[nil|
|00004470| 20 22 c0 09 21 3f ad ec | c2 20 11 c3 09 21 88 c4 | "..!?..|. ...!..|
|00004480| 09 c5 c6 23 88 c4 09 c7 | c8 23 88 c4 09 c9 ca 23 |...#....|.#.....#|
|00004490| 88 c4 09 cb cc 23 88 c4 | 09 cd ce 23 88 c4 09 cf |.....#..|...#....|
|000044a0| d0 23 88 c4 09 d1 d2 23 | 88 c4 09 d3 d4 23 88 c4 |.#.....#|.....#..|
|000044b0| 09 d5 d6 23 88 c4 09 d7 | d8 23 88 c4 09 d9 da 23 |...#....|.#.....#|
|000044c0| 88 c4 09 db dc 23 88 c4 | 09 dd de 23 88 c4 09 df |.....#..|...#....|
|000044d0| e0 23 88 c4 09 e1 e2 23 | 88 c4 09 e3 e4 23 88 c4 |.#.....#|.....#..|
|000044e0| 09 e5 e6 23 87 22 20 5b | 6b 65 79 6d 61 70 70 20 |...#." [|keymapp |
|000044f0| 67 6e 61 74 73 2d 61 64 | 6d 69 6e 2d 6d 6f 64 65 |gnats-ad|min-mode|
|00004500| 2d 6d 61 70 20 6d 61 6b | 65 2d 6b 65 79 6d 61 70 |-map mak|e-keymap|
|00004510| 20 73 75 70 70 72 65 73 | 73 2d 6b 65 79 6d 61 70 | suppres|s-keymap|
|00004520| 20 64 65 66 69 6e 65 2d | 6b 65 79 20 22 65 22 20 | define-|key "e" |
|00004530| 67 6e 61 74 73 2d 61 64 | 6d 69 6e 3a 70 72 2d 65 |gnats-ad|min:pr-e|
|00004540| 64 69 74 20 22 76 22 20 | 67 6e 61 74 73 2d 61 64 |dit "v" |gnats-ad|
|00004550| 6d 69 6e 3a 70 72 2d 76 | 69 65 77 20 22 73 22 20 |min:pr-v|iew "s" |
|00004560| 67 6e 61 74 73 2d 61 64 | 6d 69 6e 3a 70 72 2d 73 |gnats-ad|min:pr-s|
|00004570| 79 6e 6f 70 73 69 73 20 | 22 6f 22 20 67 6e 61 74 |ynopsis |"o" gnat|
|00004580| 73 2d 61 64 6d 69 6e 3a | 70 72 2d 6f 72 69 67 69 |s-admin:|pr-origi|
|00004590| 6e 61 74 6f 72 20 22 66 | 22 20 67 6e 61 74 73 2d |nator "f|" gnats-|
|000045a0| 61 64 6d 69 6e 3a 70 72 | 2d 66 69 65 6c 64 20 22 |admin:pr|-field "|
|000045b0| 0c 22 20 67 6e 61 74 73 | 2d 61 64 6d 69 6e 3a 72 |." gnats|-admin:r|
|000045c0| 65 66 72 65 73 68 20 22 | 6e 22 20 67 6e 61 74 73 |efresh "|n" gnats|
|000045d0| 2d 61 64 6d 69 6e 3a 6e | 65 78 74 20 22 70 22 20 |-admin:n|ext "p" |
|000045e0| 67 6e 61 74 73 2d 61 64 | 6d 69 6e 3a 70 72 65 76 |gnats-ad|min:prev|
|000045f0| 20 22 20 22 20 67 6e 61 | 74 73 2d 61 64 6d 69 6e | " " gna|ts-admin|
|00004600| 3a 74 68 69 73 20 22 71 | 22 20 67 6e 61 74 73 2d |:this "q|" gnats-|
|00004610| 61 64 6d 69 6e 3a 71 75 | 69 74 20 22 67 22 20 67 |admin:qu|it "g" g|
|00004620| 6e 61 74 73 2d 61 64 6d | 69 6e 3a 67 6f 74 6f 2d |nats-adm|in:goto-|
|00004630| 70 72 20 22 72 22 20 67 | 6e 61 74 73 2d 61 64 6d |pr "r" g|nats-adm|
|00004640| 69 6e 3a 72 65 66 72 65 | 73 68 2d 74 68 69 73 2d |in:refre|sh-this-|
|00004650| 70 72 20 22 53 22 20 67 | 6e 61 74 73 2d 61 64 6d |pr "S" g|nats-adm|
|00004660| 69 6e 3a 65 64 69 74 2d | 73 65 6c 65 63 74 69 6f |in:edit-|selectio|
|00004670| 6e 20 22 52 22 20 67 6e | 61 74 73 2d 61 64 6d 69 |n "R" gn|ats-admi|
|00004680| 6e 3a 72 65 67 72 65 74 | 20 62 75 74 74 6f 6e 31 |n:regret| button1|
|00004690| 20 67 6e 61 74 73 2d 61 | 64 6d 69 6e 3a 6d 6f 75 | gnats-a|dmin:mou|
|000046a0| 73 65 2d 73 65 74 20 62 | 75 74 74 6f 6e 32 20 67 |se-set b|utton2 g|
|000046b0| 6e 61 74 73 2d 61 64 6d | 69 6e 3a 6d 6f 75 73 65 |nats-adm|in:mouse|
|000046c0| 2d 73 79 6e 6f 70 73 69 | 73 20 62 75 74 74 6f 6e |-synopsi|s button|
|000046d0| 33 20 67 6e 61 74 73 2d | 61 64 6d 69 6e 3a 6d 6f |3 gnats-|admin:mo|
|000046e0| 75 73 65 2d 6d 65 6e 75 | 5d 20 34 5d 29 0a 23 40 |use-menu|] 4]).#@|
|000046f0| 31 32 30 20 4d 61 6a 6f | 72 20 6d 6f 64 65 20 66 |120 Majo|r mode f|
|00004700| 6f 72 20 6c 6f 6f 6b 69 | 6e 67 20 61 74 20 61 20 |or looki|ng at a |
|00004710| 73 75 6d 6d 61 72 79 20 | 6f 66 20 67 6e 61 74 73 |summary |of gnats|
|00004720| 20 72 65 70 6f 72 74 73 | 2e 0a 53 74 6f 6d 70 73 | reports|..Stomps|
|00004730| 20 74 6f 20 67 6e 61 74 | 73 20 61 64 6d 69 6e 20 | to gnat|s admin |
|00004740| 62 75 66 66 65 72 21 0a | 43 6f 6d 6d 61 6e 64 73 |buffer!.|Commands|
|00004750| 3a 20 5c 7b 67 6e 61 74 | 73 2d 61 64 6d 69 6e 2d |: \{gnat|s-admin-|
|00004760| 6d 6f 64 65 2d 6d 61 70 | 7d 2e 1f 0a 28 64 65 66 |mode-map|}...(def|
|00004770| 61 6c 69 61 73 20 27 67 | 6e 61 74 73 2d 61 64 6d |alias 'g|nats-adm|
|00004780| 69 6e 2d 6d 6f 64 65 20 | 23 5b 6e 69 6c 20 22 c0 |in-mode |#[nil ".|
|00004790| c1 20 21 88 c2 13 c4 15 | c6 20 88 c7 0e 08 21 88 |. !.....|. ....!.|
|000047a0| 0e 09 16 5c 6e cb 20 87 | 22 20 5b 73 77 69 74 63 |...\n. .|" [switc|
|000047b0| 68 2d 74 6f 2d 62 75 66 | 66 65 72 20 67 6e 61 74 |h-to-buf|fer gnat|
|000047c0| 73 2d 61 64 6d 69 6e 3a | 3a 62 75 66 66 65 72 20 |s-admin:|:buffer |
|000047d0| 67 6e 61 74 73 2d 61 64 | 6d 69 6e 2d 6d 6f 64 65 |gnats-ad|min-mode|
|000047e0| 20 6d 61 6a 6f 72 2d 6d | 6f 64 65 20 22 47 6e 61 | major-m|ode "Gna|
|000047f0| 74 73 20 41 64 6d 69 6e | 22 20 6d 6f 64 65 2d 6e |ts Admin|" mode-n|
|00004800| 61 6d 65 20 67 6e 61 74 | 73 2d 61 64 6d 69 6e 3a |ame gnat|s-admin:|
|00004810| 3a 73 65 74 75 70 2d 6b | 65 79 6d 61 70 20 75 73 |:setup-k|eymap us|
|00004820| 65 2d 6c 6f 63 61 6c 2d | 6d 61 70 20 67 6e 61 74 |e-local-|map gnat|
|00004830| 73 2d 61 64 6d 69 6e 2d | 6d 6f 64 65 2d 6d 61 70 |s-admin-|mode-map|
|00004840| 20 67 6e 61 74 73 2d 61 | 64 6d 69 6e 3a 3a 70 6f | gnats-a|dmin::po|
|00004850| 70 75 70 2d 6d 65 6e 75 | 20 6d 6f 64 65 2d 70 6f |pup-menu| mode-po|
|00004860| 70 75 70 2d 6d 65 6e 75 | 20 67 6e 61 74 73 2d 61 |pup-menu| gnats-a|
|00004870| 64 6d 69 6e 3a 72 65 66 | 72 65 73 68 5d 20 32 20 |dmin:ref|resh] 2 |
|00004880| 28 23 24 20 2e 20 31 38 | 31 36 34 29 20 6e 69 6c |(#$ . 18|164) nil|
|00004890| 5d 29 0a 28 70 75 74 20 | 27 67 6e 61 74 73 2d 61 |]).(put |'gnats-a|
|000048a0| 64 6d 69 6e 2d 6d 6f 64 | 65 20 27 6d 6f 64 65 2d |dmin-mod|e 'mode-|
|000048b0| 63 6c 61 73 73 20 27 73 | 70 65 63 69 61 6c 29 0a |class 's|pecial).|
|000048c0| 23 40 32 34 20 6d 61 72 | 6b 65 72 20 66 6f 72 20 |#@24 mar|ker for |
|000048d0| 63 75 72 72 65 6e 74 20 | 50 52 2e 1f 0a 28 64 65 |current |PR...(de|
|000048e0| 66 76 61 72 20 67 6e 61 | 74 73 2d 61 64 6d 69 6e |fvar gna|ts-admin|
|000048f0| 3a 3a 70 72 2d 6d 61 72 | 6b 2d 67 6c 79 70 68 20 |::pr-mar|k-glyph |
|00004900| 6e 69 6c 20 28 23 24 20 | 2e 20 31 38 36 32 39 29 |nil (#$ |. 18629)|
|00004910| 29 0a 23 40 34 33 20 54 | 68 65 20 62 75 66 66 65 |).#@43 T|he buffe|
|00004920| 72 20 69 6e 20 77 68 69 | 63 68 20 74 68 69 73 20 |r in whi|ch this |
|00004930| 70 72 20 69 73 20 64 69 | 73 70 6c 61 79 65 64 2e |pr is di|splayed.|
|00004940| 1f 0a 28 64 65 66 61 6c | 69 61 73 20 27 67 6e 61 |..(defal|ias 'gna|
|00004950| 74 73 2d 61 64 6d 69 6e | 3a 3a 70 72 2d 62 75 66 |ts-admin|::pr-buf|
|00004960| 66 65 72 20 23 5b 28 70 | 72 29 20 22 c0 20 87 22 |fer #[(p|r) ". ."|
|00004970| 20 5b 67 6e 61 74 73 2d | 61 64 6d 69 6e 3a 3a 62 | [gnats-|admin::b|
|00004980| 75 66 66 65 72 5d 20 31 | 20 28 23 24 20 2e 20 31 |uffer] 1| (#$ . 1|
|00004990| 38 37 31 31 29 5d 29 0a | 23 40 34 36 20 52 65 74 |8711)]).|#@46 Ret|
|000049a0| 75 72 6e 20 74 68 65 20 | 70 6f 73 69 74 69 6f 6e |urn the |position|
|000049b0| 20 6f 66 20 62 65 67 69 | 6e 6e 69 6e 67 20 6f 66 | of begi|nning of|
|000049c0| 20 74 68 69 73 20 50 52 | 2e 1f 0a 28 64 65 66 61 | this PR|...(defa|
|000049d0| 6c 69 61 73 20 27 67 6e | 61 74 73 2d 61 64 6d 69 |lias 'gn|ats-admi|
|000049e0| 6e 3a 3a 70 72 2d 62 75 | 66 66 65 72 2d 62 65 67 |n::pr-bu|ffer-beg|
|000049f0| 69 6e 20 23 5b 28 70 72 | 29 20 22 c0 09 21 1a 8a |in #[(pr|) "..!..|
|00004a00| c3 09 21 71 88 c4 c5 21 | 88 c6 c7 c8 5c 6e 5c 22 |..!q...!|....\n\"|
|00004a10| c9 ca 23 ab 86 cb 79 88 | 60 ae 91 65 62 88 c6 c7 |..#...y.|`..eb...|
|00004a20| c8 5c 6e 5c 22 c9 ca 23 | ad 84 cb 79 88 60 2a 87 |.\n\"..#|...y.`*.|
|00004a30| 22 20 5b 67 6e 61 74 73 | 2d 61 64 6d 69 6e 3a 3a |" [gnats|-admin::|
|00004a40| 70 72 2d 6e 75 6d 62 65 | 72 20 70 72 20 70 72 2d |pr-numbe|r pr pr-|
|00004a50| 6e 75 6d 20 67 6e 61 74 | 73 2d 61 64 6d 69 6e 3a |num gnat|s-admin:|
|00004a60| 3a 70 72 2d 62 75 66 66 | 65 72 20 62 61 63 6b 77 |:pr-buff|er backw|
|00004a70| 61 72 64 2d 70 61 72 61 | 67 72 61 70 68 20 31 20 |ard-para|graph 1 |
|00004a80| 72 65 2d 73 65 61 72 63 | 68 2d 66 6f 72 77 61 72 |re-searc|h-forwar|
|00004a90| 64 20 66 6f 72 6d 61 74 | 20 22 5e 25 64 20 22 20 |d format| "^%d " |
|00004aa0| 6e 69 6c 20 74 20 30 5d | 20 34 20 28 23 24 20 2e |nil t 0]| 4 (#$ .|
|00004ab0| 20 31 38 38 34 35 29 5d | 29 0a 23 40 34 33 20 52 | 18845)]|).#@43 R|
|00004ac0| 65 74 75 72 6e 20 74 68 | 65 20 70 6f 73 69 74 69 |eturn th|e positi|
|00004ad0| 6f 6e 20 6f 66 20 74 68 | 65 20 65 6e 64 20 6f 66 |on of th|e end of|
|00004ae0| 20 74 68 65 20 50 52 2e | 1f 0a 28 64 65 66 61 6c | the PR.|..(defal|
|00004af0| 69 61 73 20 27 67 6e 61 | 74 73 2d 61 64 6d 69 6e |ias 'gna|ts-admin|
|00004b00| 3a 3a 70 72 2d 62 75 66 | 66 65 72 2d 65 6e 64 20 |::pr-buf|fer-end |
|00004b10| 23 5b 28 70 72 29 20 22 | 8a c0 09 21 71 88 c2 09 |#[(pr) "|...!q...|
|00004b20| 21 62 88 c3 c4 21 88 60 | 29 87 22 20 5b 67 6e 61 |!b...!.`|)." [gna|
|00004b30| 74 73 2d 61 64 6d 69 6e | 3a 3a 70 72 2d 62 75 66 |ts-admin|::pr-buf|
|00004b40| 66 65 72 20 70 72 20 67 | 6e 61 74 73 2d 61 64 6d |fer pr g|nats-adm|
|00004b50| 69 6e 3a 3a 70 72 2d 62 | 75 66 66 65 72 2d 62 65 |in::pr-b|uffer-be|
|00004b60| 67 69 6e 20 66 6f 72 77 | 61 72 64 2d 70 61 72 61 |gin forw|ard-para|
|00004b70| 67 72 61 70 68 20 31 5d | 20 32 20 28 23 24 20 2e |graph 1]| 2 (#$ .|
|00004b80| 20 31 39 31 33 35 29 5d | 29 0a 23 40 34 30 20 41 | 19135)]|).#@40 A|
|00004b90| 20 73 65 6c 65 63 74 6f | 72 20 74 68 61 74 20 63 | selecto|r that c|
|00004ba0| 68 6f 6f 73 65 73 20 75 | 6e 63 6c 6f 73 65 64 20 |hooses u|nclosed |
|00004bb0| 50 52 27 73 2e 1f 0a 28 | 64 65 66 61 6c 69 61 73 |PR's...(|defalias|
|00004bc0| 20 27 67 6e 61 74 73 2d | 61 64 6d 69 6e 3a 3a 75 | 'gnats-|admin::u|
|00004bd0| 6e 63 6c 6f 73 65 64 20 | 23 5b 28 70 72 29 20 22 |nclosed |#[(pr) "|
|00004be0| c0 09 c2 5c 22 c3 61 3f | 87 22 20 5b 67 6e 61 74 |...\".a?|." [gnat|
|00004bf0| 73 2d 61 64 6d 69 6e 3a | 3a 70 72 2d 67 65 74 20 |s-admin:|:pr-get |
|00004c00| 70 72 20 53 74 61 74 65 | 20 63 6c 6f 73 65 64 5d |pr State| closed]|
|00004c10| 20 33 20 28 23 24 20 2e | 20 31 39 33 34 33 29 5d | 3 (#$ .| 19343)]|
|00004c20| 29 0a 23 40 34 33 20 53 | 65 6c 65 63 74 69 6f 6e |).#@43 S|election|
|00004c30| 20 65 78 70 72 65 73 73 | 69 6f 6e 20 2d 2d 20 73 | express|ion -- s|
|00004c40| 65 65 20 65 76 61 6c 2d | 73 65 6c 65 78 70 72 2e |ee eval-|selexpr.|
|00004c50| 1f 0a 28 64 65 66 76 61 | 72 20 67 6e 61 74 73 2d |..(defva|r gnats-|
|00004c60| 61 64 6d 69 6e 3a 73 65 | 6c 65 78 70 72 20 6e 69 |admin:se|lexpr ni|
|00004c70| 6c 20 28 23 24 20 2e 20 | 31 39 34 39 35 29 29 0a |l (#$ . |19495)).|
|00004c80| 23 40 31 32 31 20 45 76 | 61 6c 75 61 74 65 20 74 |#@121 Ev|aluate t|
|00004c90| 68 65 20 73 65 6c 65 63 | 74 69 6f 6e 20 65 78 70 |he selec|tion exp|
|00004ca0| 72 65 73 73 69 6f 6e 2c | 20 69 6e 20 61 6e 20 65 |ression,| in an e|
|00004cb0| 6e 76 69 72 6f 6e 6d 65 | 6e 74 20 77 69 74 68 0a |nvironme|nt with.|
|00004cc0| 70 72 20 62 6f 75 6e 64 | 20 74 6f 20 74 68 65 20 |pr bound| to the |
|00004cd0| 70 72 2c 20 61 6e 64 20 | 74 68 65 20 66 69 65 6c |pr, and |the fiel|
|00004ce0| 64 20 6e 61 6d 65 73 20 | 62 6f 75 6e 64 20 74 6f |d names |bound to|
|00004cf0| 20 74 68 65 69 72 20 76 | 61 6c 75 65 2e 1f 0a 28 | their v|alue...(|
|00004d00| 64 65 66 61 6c 69 61 73 | 20 27 67 6e 61 74 73 2d |defalias| 'gnats-|
|00004d10| 61 64 6d 69 6e 3a 3a 65 | 76 61 6c 2d 73 65 6c 65 |admin::e|val-sele|
|00004d20| 78 70 72 20 23 5b 28 70 | 72 29 20 22 c0 09 c2 5c |xpr #[(p|r) "...\|
|00004d30| 22 c0 09 c3 5c 22 c0 09 | c4 5c 22 c0 09 c5 5c 22 |"...\"..|.\"...\"|
|00004d40| c0 09 c6 5c 22 c0 09 c7 | 5c 22 c0 09 c8 5c 22 c0 |...\"...|\"...\".|
|00004d50| 09 c9 5c 22 c0 09 ca 5c | 22 c0 09 cb 5c 22 c0 09 |..\"...\|"...\"..|
|00004d60| cc 5c 22 c0 09 cd 5c 22 | c0 09 ce 5c 22 1e 0e 1e |.\"...\"|...\"...|
|00004d70| 0d 1e 0c 1e 0b 1e 5c 6e | 1e 09 1e 08 1e 07 1e 06 |......\n|........|
|00004d80| 1d 1c 1b 1a 0e 0f 3f ae | 84 d0 0e 0f 21 2e 0d 87 |......?.|....!...|
|00004d90| 22 20 5b 67 6e 61 74 73 | 2d 61 64 6d 69 6e 3a 3a |" [gnats|-admin::|
|00004da0| 70 72 2d 67 65 74 20 70 | 72 20 4e 75 6d 62 65 72 |pr-get p|r Number|
|00004db0| 20 43 61 74 65 67 6f 72 | 79 20 53 79 6e 6f 70 73 | Categor|y Synops|
|00004dc0| 69 73 20 43 6f 6e 66 69 | 64 65 6e 74 69 61 6c 20 |is Confi|dential |
|00004dd0| 53 65 76 65 72 69 74 79 | 20 50 72 69 6f 72 69 74 |Severity| Priorit|
|00004de0| 79 20 52 65 73 70 6f 6e | 73 69 62 6c 65 20 53 74 |y Respon|sible St|
|00004df0| 61 74 65 20 43 6c 61 73 | 73 20 53 75 62 6d 69 74 |ate Clas|s Submit|
|00004e00| 74 65 72 2d 49 64 20 41 | 72 72 69 76 61 6c 2d 44 |ter-Id A|rrival-D|
|00004e10| 61 74 65 20 4f 72 69 67 | 69 6e 61 74 6f 72 20 52 |ate Orig|inator R|
|00004e20| 65 6c 65 61 73 65 20 67 | 6e 61 74 73 2d 61 64 6d |elease g|nats-adm|
|00004e30| 69 6e 3a 73 65 6c 65 78 | 70 72 20 65 76 61 6c 5d |in:selex|pr eval]|
|00004e40| 20 31 35 20 28 23 24 20 | 2e 20 31 39 35 39 30 29 | 15 (#$ |. 19590)|
|00004e50| 5d 29 0a 23 40 33 30 20 | 45 64 69 74 20 74 68 65 |]).#@30 |Edit the|
|00004e60| 20 73 65 6c 65 63 74 69 | 6f 6e 20 63 72 69 74 65 | selecti|on crite|
|00004e70| 72 69 61 2e 1f 0a 28 64 | 65 66 61 6c 69 61 73 20 |ria...(d|efalias |
|00004e80| 27 67 6e 61 74 73 2d 61 | 64 6d 69 6e 3a 65 64 69 |'gnats-a|dmin:edi|
|00004e90| 74 2d 73 65 6c 65 63 74 | 69 6f 6e 20 23 5b 6e 69 |t-select|ion #[ni|
|00004ea0| 6c 20 22 c0 11 c2 0b c4 | 5c 22 13 c5 20 87 22 20 |l ".....|\".. ." |
|00004eb0| 5b 67 6e 61 74 73 2d 61 | 64 6d 69 6e 3a 3a 65 76 |[gnats-a|dmin::ev|
|00004ec0| 61 6c 2d 73 65 6c 65 78 | 70 72 20 67 6e 61 74 73 |al-selex|pr gnats|
|00004ed0| 2d 61 64 6d 69 6e 3a 3a | 73 65 6c 65 63 74 6f 72 |-admin::|selector|
|00004ee0| 20 65 64 69 74 2d 65 78 | 70 72 20 67 6e 61 74 73 | edit-ex|pr gnats|
|00004ef0| 2d 61 64 6d 69 6e 3a 73 | 65 6c 65 78 70 72 20 22 |-admin:s|elexpr "|
|00004f00| 3b 3b 20 53 65 6c 65 63 | 74 69 6f 6e 20 65 78 70 |;; Selec|tion exp|
|00004f10| 72 65 73 73 69 6f 6e 2e | 20 20 54 68 69 73 20 69 |ression.|  This i|
|00004f20| 73 20 65 76 61 6c 75 61 | 74 65 64 20 77 69 74 68 |s evalua|ted with|
|00004f30| 20 4e 75 6d 62 65 72 2c | 20 43 61 74 65 67 6f 72 | Number,| Categor|
|00004f40| 79 2c 20 53 79 6e 6f 70 | 73 69 73 2c 5c 6e 3b 3b |y, Synop|sis,\n;;|
|00004f50| 20 43 6f 6e 66 69 64 65 | 6e 74 69 61 6c 2c 20 53 | Confide|ntial, S|
|00004f60| 65 76 65 72 69 74 79 2c | 20 50 72 69 6f 72 69 74 |everity,| Priorit|
|00004f70| 79 2c 20 52 65 73 70 6f | 6e 73 69 62 6c 65 2c 20 |y, Respo|nsible, |
|00004f80| 53 74 61 74 65 2c 20 43 | 6c 61 73 73 2c 20 53 75 |State, C|lass, Su|
|00004f90| 62 6d 69 74 74 65 72 2d | 49 64 2c 5c 6e 3b 3b 20 |bmitter-|Id,\n;; |
|00004fa0| 41 72 72 69 76 61 6c 2d | 44 61 74 65 2c 20 4f 72 |Arrival-|Date, Or|
|00004fb0| 69 67 69 6e 61 74 6f 72 | 2c 20 61 6e 64 20 52 65 |iginator|, and Re|
|00004fc0| 6c 65 61 73 65 20 73 65 | 74 20 66 72 6f 6d 20 74 |lease se|t from t|
|00004fd0| 68 65 20 50 52 3b 20 69 | 66 20 69 74 27 73 20 61 |he PR; i|f it's a|
|00004fe0| 20 6e 6f 6e 2d 6e 75 6c | 6c 5c 6e 3b 3b 20 65 78 | non-nul|l\n;; ex|
|00004ff0| 70 72 65 73 73 69 6f 6e | 20 74 68 61 74 20 65 76 |pression| that ev|
|00005000| 61 6c 75 61 74 65 73 20 | 74 72 75 65 2c 20 74 68 |aluates |true, th|
|00005010| 65 6e 20 74 68 61 74 20 | 72 65 63 6f 72 64 20 69 |en that |record i|
|00005020| 73 20 64 69 73 70 6c 61 | 79 65 64 2e 20 20 46 72 |s displa|yed.  Fr|
|00005030| 65 65 2d 66 6f 72 6d 5c | 6e 3b 3b 20 66 69 65 6c |ee-form\|n;; fiel|
|00005040| 64 73 20 61 72 65 20 73 | 74 72 69 6e 67 73 2c 20 |ds are s|trings, |
|00005050| 6f 74 68 65 72 73 20 61 | 72 65 20 73 79 6d 62 6f |others a|re symbo|
|00005060| 6c 73 20 6f 72 20 6f 74 | 68 65 72 20 61 74 6f 6d |ls or ot|her atom|
|00005070| 73 2e 5c 6e 22 20 67 6e | 61 74 73 2d 61 64 6d 69 |s.\n" gn|ats-admi|
|00005080| 6e 3a 72 65 66 72 65 73 | 68 5d 20 33 20 28 23 24 |n:refres|h] 3 (#$|
|00005090| 20 2e 20 32 30 30 35 36 | 29 20 6e 69 6c 5d 29 0a | . 20056|) nil]).|
+--------+-------------------------+-------------------------+--------+--------+